RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR FR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 

RRR = RRR 

RRR = RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 


a a a a a a a a a a tt a st st st st tt 
St st st St St Ht 
Att ta 4 tt SH St HH Ht tt 


PPPPPPPPPPPP 
PPPPPPPPPPPP 


PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


PPPPPPPPPPPP 
P P 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
ARR 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
A AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 


DDDDDDDDDDDD 

DDDDDDDDDDDD 

DDDDDDDDDDDD 

DDD DOD 
DDD DOD 
DOD DOD 
DOD DOD 
DDD DDD 
DDD DOD 
DDD DOD 
DDD DDD 
DDD DDD 
DOD DDD 
DDD DOD 
DDD DOD 
DOD DOD 
DDD DDD 
DOD DDD 
DDDDDDDDDDDD 

DDDDDDDDDDDD 


DDDDDDDDDDDD 


G 14 
**F 1LE**1D**RTPAD 
RRRRRRRR TITTTTTTTT PPFPPPPP AAAAAA DODDDDDD 
RRRRRRRR TTTTTTTTTT PPPPPPPP ABAAAA DODDDDDD 
RR RR TT PP PP AA AA 0D DD 
RR RR TT PP PP AA AA 0D DD 
RR RR TT PP PP AA AA 0D DD 
RR RR TT PP PP AA AA DD DD 
RRRRRRRR TT PPPPPPPP AA AA 0D DD 
RRRRRRRR TT PPPPPPPP AA AA DD DOD 
RR RR TT PP AAAAAAAAAA DD DD 
RR RR TT PP AAAAAAAAAA DD DD 
RR RR TT PP AA AA DD DD eeee 
RR RR TT PP AA AA 0D DD eeee 
RR RR TT PP Ab AA DDDDDDDD eeue 
RR RR TT PP AA AA DDDDDDDD cece 
LL IIIII! SSSSSSSS 
LL HII] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL II SS 
LL I] SS 
LELLLLLLLL IIIT] SSSSSSSS 
LLLLLLLLLL III! SSSSSSSS 


ee) 
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~SEP=19 RTPAD.SRCJRTPAD.MAR; 1 (1) 
-TITLE RTPAD = REMOTE TERMINAL PROGRAM 
-IDENT ‘'v04=-000' 
-PSECT RTPAD,NOWRT 
SDEBUGDEF 


| neGaNedNeReREvESnetsesennenebbemeneeeentabeeneneshebeaniannnnenbananmenenann 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE 3 FURNISHED wee A LICENSE AND MAY BE USED AND costs 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE oy 7 re THE 
INCLUSION OF THe ABOVE ST gith de, NOTICE. THIS SOFTWARE OR oT 


So 

So 

o 

So 
DOOOCOOCoOoOO 
OOOoOoCooooo 


OOCCOCOOOOooo 


-* ® 
® ® 
* 
® ® 
-* ® 
:* ® 
* * 
-* & 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. = 
-* ® 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN * 
;* CORPORATION. * 
-* * 
Ww ITY FOR THE USE OR RELIABILITY OF ITS * 

® 
-f® ® 
-* i 
« 


DIGITAL ASSUMES NO RESPONSIBILITY 
IS NOT SUPPLIED BY DIGITAL. 


IBIL 
SOFTWARE ON EQUIPMENT WHICH IS N 


tARRARALARAAALALA SALE ASAE SESSA ES ESSE SEAS ERASE SESE EERE ARERR SEES EERE E CRRA EE SO 


; ; ABSTRACT: 


THIS PROGRAM RUNS ON A LOCAL NOCE TO ALLOW A TERMINAL TO APPEAR TO 
BE LOCALLY CONNECTED TO A REMOTE NODE. 


; ¢ ENVIRONMENT: VAS = USER MODE 


DOOSOOOSOOOOOSOSOSOOOOSOSOOOOOOOOOOOSoOOO 
SoOOSCOSOOOOSOSoooooooooooooooooooo 
Sooooooooo ooo ooo SSO OOo SSS SSS SSeS 


SOGCOCOOQOOOCOOCOCOOOSOOOOOSSSSSSOSOOSOOOOOOOOOOOoOOoO 


; ; AUTHOR: WM CARDOZA, CREATION DATE: 20-AUG-79 


Abi RE AT Pn RE ith tome Reet OBE: m0? eeepc bal etc esi NORE ta eB 8 


: FACILITY: REMOTE TERMINAL SUPPORT 


PUP PVPS EB Be ES BEE ENN ANA AI III POPONPOPONINNINIPYN 2 OO OS 


0 
09 : ; MODIFIED BY: 
$8 v03-017 JLV0362 11=JUL-1984 
+4 Add code to nea oe te ‘QUOTA EXCEEDED occured at. 
0 v03-016 JLV0353 Noy 10-APR-1984 
0 Add support for et "HOST yD E ttcn: 
v03-015 JLV0324 Jake VanNo 10=JAN-1984 
p Fix bug in setting of vax to vax flag. 
v03-014 JLV0315 Jake 73DEC-1983 
0 Add logical name RIPADSLOG” for debug purposes. 


ae tal, | 
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Send extended characteristics in configuration message. 


-SEP-1984 RTPAD.SRCJRTPAD.MAR; 1 
28 ; Used Like FALS$LOG, etc. 
0: v03-013 JLV0295 Jake VanNo 28-JUL-1983 
12 Add looping on n wre wR} TEaI0 before exiting. 
86 : Add SET HOST/LOGC=filespec). 
09 64 : V03-012 MHB0093 Mark Bramhall 7-Mar-1983 
0 65 ; Moved MAXMSG to SRTPADDEF. 
00 96 3 Reworked code to use dynamic descriptors. 
00 67 ; Changed the CTERM detection algorithm. 
009 rt: ; Changed handling of PSTHRU messages. 
80 $3 : v03-011 MHB0089 Mark Bramhall 11-Feb-1983 
0000 4 : Changed LIBSNET_CONNECT to UNSSNET_CONNECT. 
000 73; v03-010 JLVO Jake VanNoy 17-Jan-1983 
000 74 ; Added hooks for CTERM protocol. Broke up into two modules - 
000 75; RTPAD and VMSRT. VMSRT now holds all of the VMS specific 
000 76 ; rotocol. General cleanup of existing code and comments. 
0000 77? 3 dd use of new CLI interface, results in loss of first 
Bae ce ; command feature used by RSTSRT. 
0000 80: V03-009 wMC0068 Wayne Cardoza 5-0ct-1982 
44 4 $ Fix the previous DCL fix. 
0000 Hg : V03-008 wMC0067 Wayne Cardoza 15-Oct-1982 
0000 84 ; Fix timing problem when Link error arrives before the 
0000 85 ; mailbox message. 
4364 Hy : Work with new DCL keyword support. 
0000 88: v03-007 JLV0214 Jake VanNoy 6-0CT-1982 
0000 89 ; Add Read Verify code as implemented (more or less) 
9464 + : by Steve Long. 
$000 3 : V03-006 wMC0066 Wayne Cardoza 20-Aug-1982 
4 a7 ; Take care of errors on SENSE MODE. 
0000 «95: V03-005 wMC0065 Wayne Cardoza 7=Jul-1982 
44 38 3 Don't issue out of band set mode Q10 if no change. 
609 98 ; V03-004 wMC0064 Wayne Cardoza 9-Apr-1982 
it 100 : Don't try to disable “T under MCR. 
B88 101 : v03-003 wMC0063 Pexne Cardoza 1-Apr-1982 
4 1 § : Zero the buffer before a SENSE. 
$09 104 : v03-002 wMc0062 Wayne Cardoza 18-Mar-1982 
0 : H s Add TERMCHAR in DIB format back for RSX, etc. 
7: v03-001 wMc0061 Wayne Cardoza 15-Mar-1982 
000 19 ; 
8 0 119 3 
ee 2 


oo 
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113 ~SBTTL DECLARATIONS 
119 ; DEFAULT ADDRESSING MODE 
7 : .DEFAULT DISPLACEMENT WORD 
0 113 ; INCLUDE FILES: 
0 121 ° SDIBDEF :D1B OFFSETS 
0 1 é SOSCDEF [DESCRIPTOR DEFINITIONS 
000 1 SDVIDEF :GETDVI DEFINITIONS 
09 124 SIODEF 71/0 OP CODES & MODIFIERS 
0 125 SROPOEF sREMOTE DEVICE PROTOCOL 
000 1 6 SRTPADDEF : eee NEW 
000 1 STSADEF 3 ee NEW ee* tsadef 
a8 : STTYDEFS : TERMINAL DRIVER SYMBOLS 
000 0 : EQUATED SYMBOLS: 
900 : : AST CONTROL BLOCK 
00000026 900 4 : ASTST_BUF = CTPSB_PRO_MSGTYPE ; DATA BUFFER STARTS HERE 
000001FE 6 136 REMS_FACILITY = 510 ; REMS_ code 
13 .show me,MC,MD 
139 $SHR- WMSGOEF * NAME=REM, CODE=REMS_FACILITY,SCOPE=LOCAL, - 
140 MSGCODES .. << ATBC. INFOS> 
IF RSkK *SHRDEF 
00000001 si ng och 


a 
SDEFINI SHR 
SAVE —_LOCAL -BLOCK 
-NOCROSS 
-IIF DIF <> <GLOBAL>,.ENABLE SUPPRESSION 
SABSS$,ABS 


* | | IDN <LOCAL> <GLOBAL> 

“MACRO $DEF | SYM,ALLOC,SIZ 

[1IF NB, SYM, SYM:: 

*IIF NB. ALLOC, ALLOC $12 


-MACRO $EQU SYM, VAL 


ND EQU 
sMACRO_ SVIELDI MOD, SEP,SYM,S1Z,MSK 
“int. eit $12...2$12 


<18S1Z...>-1>aBIT...> 


Au 
~N 


F 
D 
eS ee | 
- SVIELD1 
F 


DIF <LOCAL> <LOCAL>,.ERROR ;ARG MUST BE ‘’GLOBAL"’,”’LOCAL"’,OR NULL 


SOooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


SSOSOSOSSOSOSOSOSOSSOSOSOSOSOOSOSOOOOOSOSOOSOSOSoOoOSoSoS 
SOooooooooooooooooooooooooooosooooSo 


SOoooooooooooooooooooooooooooosoSo 
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RO SDEF  §SYM,ALLOC,S12Z 
NB,SYM, SYM: 
NB, ALLOC, ALLOC S12 


RO $EQU SYM, VAL 
AL 


RTPA - REMOT 
VOu-000 DECLAR 


~ 
o- 
= 


N $SEQU 
ACRO SVIELD1 MOD,SEP,SYM,SIZ,MSK 


=1 
F NB. SIZ, $12...2$12 
sep'v_ 'Sym=BIT... 
NB,SIZ, MoD‘ EP S_'SYM=SIZ 
F NB.MSK, MOD'SEP'M~'SYM=<<<1@S1Z...>=1>aBIT...> 
oo cca PS Ecos 
, SVIELD} 
00000000 


$SEQU SHRS paciey 0 


SHRS~FACIL 


$SEQU SHRS$_APPEND 
SHR$~APPENDE 


SEQU SHR$_APPENDED 


8 T 
00000000 T 
E 


00001000 


00001008 


$EQU § SHRS_BADBYTE 
SHR$_BADBYTE=4112 


SEQU SHRS_BADFIELD 4120 
SHR$~BADF IELD=4120 


$SEQU  SHRS$_BADLONG 4128 
SHR$BADLONG=4128 


SEQU  SHRS_BADWORD 4136 
SHR$BADWORD=4136 


$EQU SHR$_BEGIN 4144 
SHR$_BEGIN=4144 


$SEQU SHR$_BE 
SHR$_BE 


SEQU = SHRS_BE 
SHRS~BE 


00001010 


00001018 


00001028 


0 
0 
0 
0 
0 
0 
00001020 
0 
00001030 6 


SDOoOoOooooooooooSo 


ND 4152 
D=4152 


SOOCoooooooooooooooo 


T 4160 
T=4160 


N 
N 
N 
B 4168 
B 
E 
E 


OOoooooooooooooooooooo 


$EQU = SHRS_CL 
SHRS$~CL 
SEQU  SHRS_CL 

SHRS$~CL 


00001048 =4168 


IN 4176 
IN 


G 
G 
G 
G 
I 
I 
0 
0 =4176 


I 
I 
I 
I 
C 
Cc 
$s 
s 


00001038 
00001040 
00001050 


Sooooo 
SOooooooooooo 
CSoooooeco 


00001058 


00001060 


00001068 


00001070 


00001078 


00001080 


00001088 


00001090 


00001098 


000010A0 


000010A8 


00001080 


00001088 


000010C0 


000010¢8 


00001000 


00001008 


000010E0 


000010E8 


Sooooooo 
SOOooooocooeo 
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$EQU SHR$_CLOSEOUT 4184 
SHR$_CLOSEOUT=4184 
$SEQU SHR$_COPIEDB 4192 
SHR$_COPIEDB=4192 
$SEQU SHR$_COPIEOR 4200 
SHR$_COPIEDR=4200 
$EQU SHR$_CREATED 4208 
SHRS$~CREATED=4208 
$EQU SHR$_ENDED 4216 
SHRS$_ENDED=4216 
$EQU SHR$_ENDEDD 4224 
SHRS$_ENDEDD=4224 
$SEQU SHR$_ENDEDT 4232 
SHRS_ENDEDT=4232 
$SEQU SHRS_NEWFILES 4240 
SHRS_NEWF ILES=4240 
$SEQU SHR$_OPENIN 4248 
SHR$_OPENIN=4248 
$SEQU SHR$_OPENOUT 4256 
SHR$_OPENOUT=4256 
$EQU SHR$_OVERLAY 4264 
SHRS_OVERLAY=4264 
SEQU SHR$_READERR 4272 
SHR$_READERR=4272 
$SEQU SHRS_REPLACED 4280 
SHRS_REPLACED=4280 
$EQU SHR$_WILDCONCAT 4288 
SHRS_WILDCONCAT=4288 
$SEQU SHR$_WILDOUTVER its, 
SHR$_WILDOUTVER=4296 
$EQU SHR$_WRITEERR 4304 
SHRS_WRITEERR=4304 
$SEQU SHR$_ABEND 4312 
SHR$~ABEND=4312 
$EQU SHR$_ABENDD 4320 
SHR$_ABENDD=4320 
$EQU SHR$_ABENDT 4328 


SHRS_ABENDT=4328 
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er 


<zD 


(1) 


RTP 
v04 


00001100 


00001108 


00001110 


00001118 


00001120 


00001128 


00001130 


00001138 


00001140 


00001148 


00001150 


00001158 


00001160 


00001168 


00001170 


00001178 


00001180 
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000010F0 p 
000010F8 p 

0 
33 
0 
0900 
000 
0000 
0000 
0000 
4 
000 
0000 
0000 
3808 
000 
0000 
0000 
O68 
000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
000 
bp 
00 
000 
00 
3 
09 
3 
000 


$EQU 


$SEQU 


$EQU 


$EQU 


$EQU 


$SEQU 


$SEQU 


$EQU 


SEQU 


$EQU 


SEQU 


$EQU 


SEQU 


SEQU 


$EQU 


$EQU 


$EQU 


$EQU 


$SEQU 


N 14 


HR 


os ERRORPC £338 


ERRORPC=4 
4344 


<= 
RS 


OVALUE 4352 
OVALUE=4352 


DKEY 4360 
“BADKEY=4360 


SHR$S_BADVALUE _4368 
SHR$_BADVALUE=4368 


SHR$_BADDELIM 4376 
SHR$_BADDEL 1M=4376 


SHR$_BADLOGIC 4384 
SHR$~BADLOGIC=4384 


SHR$_NOWILD 4392 
SHRS$_NOWILD=4392 


SHR$_TEXT 4400 
SHR$_TEXT=4400 


SHRS$_IDXCONCAT 4408 
SHRE_IDXCONCAT=4408 


SHRS_RELCONCAT 4416 
SHRS_RELCONCAT=4416 


SHR$_HIGHVER 4424 
SHRS_HIGHVER=4424 


SHR$_BADLOGICPC 4432 
SHR$_BADLOGICPC=4432 


SHRS$_ATPC 4440 
SHR$_ATPC=4440 


SHR$S_BADCOPIES 4448 
SHRS_BADCOPIES=4448 


SHR$_BADF ORM 4456 
SHRS—BADFORM=4456 


SHR$_BADJOBID 4464 
SHR$_BADJOBID=4464 


SHR$_BADJOBNAME 447 
SHR$_BADJOBNAME=447 


SHRS_BADPRTY 4480 
SHR$_BADPRTY=4480 


-) 
=s 
-SYN 
SY YNTAX=4364 
JN 
=N 
-BA 


Pa ead ad A swe a“ 


$ 
S 
SHR 
SHR 
SHR 
SHR 
SHR 
SHR 


"SSEpci9ee 0:13:07 
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<2 


= REMOTE 
DECLARATI 
00001188 $00 
00 

0 

00001190 $3 
00001198 0000 
000 
0000 
000011A0 0000 
000 
000011A8 0000 
0000 
4 
00001180 0000 
0000 
0000 
00001188 0000 
C000 
0000 
000011C0 0006 
0000 
0000 
000011C8 0000 
0000 
0000 
000011D0 0000 
0000 
0000 
000011D8 0000 
0000 
0000 
000011EO 0000 
0000 
0000 
000011E8 0000 
48 
000 
000011FO 0000 
0000 
000011F8 $900 
0000 
0000 

00001200 8 0 
000 
0000 

00001208 09 
op 

00001210 

000 
00001218 00 


0000 


o-4 


am 


R 
S 
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SEQU SHRS_BADQNAME 4488 
SHR$~BADQNAME=4488 
SEQU SHRS_BADTIME 4496 
SHR$_BADTIME=4496 
$SEQU  SHRS_NOQUEUE — 4504 
SHR$ ~NOQUEUE=4504 
$SEQU SHR$_NOJOBID 4512 
SHR$-NOJOBID=4512 
$SEQU SHR$_NOJOBNAME 4520 
SHR$~NOJOBNAME =4520 
SEQU  SHRS_SYSERROR 4528 
SHR$—~SYSERROR=4528 
SEQU  SHRS_NOTCOPIED 4536 
SHRS$_NOTCOPIED=45 36 
$EQU  SHRS_NOTCMPLT 4544 
SHR$_NOTCMPLT=4544 
SEQU  SHRS_RMSERROR 4552 
SHR$-RMSERROR=4552 
SEQU  SHRS_UNXPCTSTS 4560 
SHR$_UNXPCTSTS=4560 
SEQU § SHRS_HASHCONCAT 4568 
SHR$ ~HASHCONCAT=4568 
$SEQU  SHRS_INCOMPAT 4576 
SHRS—~INCOMPAT=4576 
SEQU  § SHRS_VALERR 4584 
SHR$_VALERR=4584 
$SEQU  SHRS_FILNOTDEL 4592 
SHR$~F ILNOTDEL=4592 
$EQU SHRS_CONFDEL 4600 
SHR$~ CONF DEL=4600 
SEQU SHRS_DELETED 4608 
SHR$~DELETED=4608 
$EQU  SHRS_DELVER 4616 
SHR$~DELVER=4616 
SEQU  SHRS_PURGEVER 4624 
SHR$_PURGEVER=4624 
SEQU SHRS_CLOSEDEL 4 32 


SHR$~CLOSEDEL=46 
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SEQU —- SHRS_DiATOOBUS 4640 
00001220 SHRS$~DIRTOOBUS=4640 
SEQU  SHRS_NOFILPURG 4648 
00001228 SHRS~NOF ILPURG=4648 
SEQU —- SHRS_FILNO 56 
00001230 SHRSTEICNOTPURSG6S6 
SEQU —- SHRS_SEARCHFAIL 4664 
00001238 SHRS~SEARCHF AIL =4664 
SEQU —- SHRS_DELINTERR 4672 
00001240 SHRS~DELINTERR=4672 
SEQU SHR$_PARSEFAIL 4680 
00001248 SHRS~PARSEF AIL =4680 
SEQU —-SHRS_FILPURGED 4688 
00001250 SHRS~F ILPURGED=4688 
SEQU  SHRS_ENDABORT 4696 
00001258 SHRS~ENDABORT=4696 
$SEQU SHR$_ENDDIAGS 4704 
00001260 SHRS~ENDDIAGS=4704 
SEQU  SHRS_ENDNOOBJ _4712 
00001268 SHR$~ENDNOOBJ=4712 
SEQU  SHRS_HALTED __4720 
00001270 SHRS~HALTED=4720 
SEQU  SHRS_NOCMDMEM _ 4728 
00001278 SHRS~NOCMDMEM=4728 
$EQU SHR$_QEMPTY 4736 
00001280 SHRS~QEMPTY=4736 
SEQU —-SHRS_CBT 4744 
00001288 SHRS7CBT=4744 
SEQU SHR$_EXISTS 4752 
00001290 SHRS~EXISTS=4752 
SEQU  SHRS_UNLOCKED _ 4760 
00001298 SHRS~UNLOCKED=4760 
SEQU —SHRE_RENAMED 4768 
000012A0 SHRS~RENAMED=4768 
SEQU  SHRS_PROTECTED 4776 
0000128 SHRS~PROTECTED=4776 
SEQU  SHRS_NOTLOCKED 4784 
00001280 SHRS~NOTLOCKED=4784 


=< 
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o- 


RTPAD 
v04-000 


bg er aba 
DECL 


=m 


ARATI 
00001268 09 
000012C0 
000012C8 0 

00 

00 
000012D0 09 
000012D8 8 

0 
000012E0 0 
000012E8 

0 
000012F0 S 
000012F8 
00001300 


00001308 


SOOSCOCOCSOOOSOSOSOOOSOSOSOOSOSOOSOSOSOOSOSOSOSOSOSOSOSOSOOSOOOOOSOOSOOOOOOOSCSO 


00001310 
00001318 
00001320 
00001328 
00001330 


0 
i] 
0 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
: 
0 
0 
00001338 8 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00001348 


pe sD ame ae nme ne) ce nee ne) een) ene ne ee ee ew we ww wl wl o lol alo lol olololeololelelololeleleololololal al alolololol a!) 


00001340 | 
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SEQU  SHRS_ACTIMAGE _4792 
SHRS_ACTIMAGE=4792 
SEQU  SHRS_DIRNOTCRE 4800 
SHRS_DIRNOTCRE=4800 
SEQU  SHRS_NODESTQUE 4808 
SHRS_NODESTQUE=4808 
SEQU  SHRS_ILLDESQUE 4816 
SHRS_ ILLDESQUE=4816 
SEQU  SHRS_NOTTERM 4824 
SHRS-NOTTERM=4824 
$EQU  SHRS_CONFQUAL 4832 
SHR$~CONF QUAL =4832 
SEQU = SHRS_ILLDIRCOPY 4840 
SHRS—ILLDIRCOPY=4840 
SEQU = SHRS_INSVIRMEM 4848 
SHRS—INSVIRMEM=4848 
SEQU SHRS_CREATEDSTM 4856 
SHRS$_CREATEDSTM=4856 
$EQU  SHRS_NOTRUNC 4864 
SHRS_NOTRUNC=4864 
$EQU — SHRS_PROPNOTINS 4872 
SHR$_PRODNOT INS=4872 
SEQU SHRS_TOTAL 4880 
SHR$_TOTAL=4880 
SEQU  SHRS_FILPURG 4888 
SHRS_F ILPURG=4888 
SEQU = SHRS_FILDEL 4896 
SHRS_F ILDEL=4896 
$EQU SHRS_INVQUAVAL 4904 
SHRS— INVQUAVAL=4904 
SEQU  SHRS_NOFILES 4912 
SHRS_NOF ILES=4912 
SEQU  SHRS_FILNOTACC 4920 
SHRS_F ILNOTACC=492 
SEQU  SHRS_QUALMISS 4928 
SHRS_QUALMISS=4928 
SEQU —-SHRS_FILSPCSRCH 4936 
SRCH=4936 


SHR$_FILSPC 


REISE BNET 
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00001350 


00001358 


0000 


00000000 


oo 
oo 
oo 
oo 
oo 
oo 
oo 
Wo 


- REM 
DECLA 
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4 
4 


$EQU SHR$_NOSR 
SHRS_NOSR 


C 

C 

$EQU SHR$_NOSUC 
SHRS_ “Nosue 


HR 
DIF <> <GLOBAL>,.DISABLE SUPPRESSION 


= 0 
; IDN, LOCAL, GLOBAL $$GBL = 
-IRP - MSGPAIR NF O>> 

$SHR, MSGCOD REM, REMS_FACILITY, MSGPAIR 


SSHR_MSGCOD REM, REMS_FACILITY, ATPC, INFO 
IF IDN, INFO, WARNING 
F £Q $$GBL 


ay 

REMS_ATPC = 0 
LFF 

REMS_ATPC == 0 
ENDC 


IDN, INFO, SUCCESS 
Q $$GBL 


DN, INFO, ERROR 
Q $$GBL 
$_ATPC = 2 


S_ATPC == 2 
i 


ATPC = 


I 

M 

F 

M 

D 

F_IDN, INFO, INFO 
IF ‘. $$GB 
RE 

IF 

RE $_ ATPC == 3 
-ENDC™ 

FF 

a 


SOSOSCSOSOOSOOSOOSOSOOOOSOOoOoOSoSSoSo 
SOSCSOCOOOSCOSOOOOOOOSOOOOoOSoSo 
SOOOCOOCCCOCOCSOOCOCOOOOOOOOoOoOoOooe 


OOOCOooooooooooooooooooooo 


~~ 
-O 


ome 


Page 1 
. ( 


mes Resre v04-00 
RTPAD.SRCJRTPAD.MAR; 1 


= REMOTE TERMINAL PROGRAM 


DECLARATIONS 


oO 
oOo u«! 
uu 2 
za! 
— 
" " 
vv’ wv 
a a 
- - 
=< <« 
4 a 
fe RY 
uF Ow 
Wwew2zo a 
ewerwsv @ 
° wo o 
*ZwuU PQ 
wa A 
zw 
wo cot 
Zou Vv 
wo FuFoO 
*ZuwuwZ 2 
Wwe Oe or ea 
a ° E 
i 
°o 
as 
"“ 
°o 
Cc 
. ee *e 
—NM~s 
www 


DOOOCOOOOOOOSOOOOOOSOooOO 
DOOOOCoCoOoooooooooooosoSo 
SOOOCOCOCOOOSOOSOOSOOSOSOSoOSoOSSSoSo 
pe ee ee ela lolololololololelelelelololo) 


om 
own 
oS 
o 
o 
oS 
o 
oo 


1FE11 


RTPA - RE 
V04= RTPA 


oz 
oO 
‘-_ 
m 
~— 
—rr 
=z 
be 
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TINE Breer obs SSi1eicy PAXANMS Magee, yO4=00 


~~ -SBTTL RTPAD = MAIN ROUTINE 
; FUNCTIONAL DESCRIPTION: 
MAIN ROUTINE 
CALLING SEQUENCE: 
RUN FROM A TERMIWAL 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
RETURNED IF A SYSTEM SERVICE HAS AN UNEXPECTED ERROR 
SIDE EFFECTS: 
DECNET LINK SET UP WITH A REMOTE NODE 


Bete Se Se Ge Se Be Se Se Ge Se Ge Se Se Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se 


=» 
par 
v 
PS 
J 


0000 WORD 0 


-if df debu 
BSB DEBUG_SETUP ; enable “B 
-endc 


: INIT creates logical Link and starts up protocol module, 
3; everything after that is AST driven. 


PWN OOD NANE WIN SO OD NAUE WN O ODNAUE WN 0 DOONAN EWI OOONOD Sz 


OOOCOSCCSOSOSOSOSOSOOSOSOSSOSOSOOSOSSOSOSOSOSOSOSOSOOSOSOOSOOOOOOOOOOOOOoOO 
tt @ SHO QOOOCOCOCOCOCO SOS OlOSSSSOSOOSOSOSOSOOSOSOSOSOSOOOSOSOSOSOOSOOOOOOOOOOOOOOOCOO 
me a ed ed ed ed od dd 3 dd 2 2 2 3 8 8 8 

OOOO O00 0909 09 69 09 69 09 09 09 SI NIN NSIS SNIP AA AAA AA AMMIVIMUMIMIVIVIIUI ES EE 


SOOOSOCSOOSOSOSOSOOSOOSOSOOSOOSSSOOSOOSSOSOOSOSOOSOOSOSOOOSOSOOOOOOOOOOOOOOOOO 


0000 §=—30 BSBW INIT :; INIT & set up logical Link 
5 10$: SHIBER_S ; Proceed asynchronous from now on 
-GLOBL SYSS$HIBER 
00000000°GF 00 FB 00 CALLS #0,G*SYSSHIBER 
02B81'CF % 196 TSTB = WAKEFLAG ; Time to exit if > 0 
{ SON 13% BEQL 10$ ; Spurious SWAKE 
11 O2B2°CF €9 199 BLBC CTERM_FLAG,20$ ; branch if not cterm 


| 
ad 


00000000 ' GF 
DD 


00000000'GF 01 


7E_ = O14C "CF 
00000000'GF 01 


7E_—-0158'°CF 
00000000'GF 01 


7E_ = 0148'CF 
00000000'°GF 01 


7E_ = 0144'CF 
00000000'GF 01 


- REMOTE TER 
RTPAD = MAIN 
Dd 17 
1 18 

1D 
1D 
DD 1D 
FB 1F 
11 
; 
DD 60 
FB QO2A 
0031 
0031 
3H 
3¢ 0031 
FB 0036 
0030 
003d 
0030 
3C 003D 
FB Boag 
004 
0049 
0049 
3C 0049 
FB ones 
Bne 
055 
0055 
3€ 0055 
FB QO5A 
061 
061 
061 
061 
061 
+3 
6 
06 
Be 
65 
065 
be 
6 
? 
7? 
? 


u 


212 
213 


214 


L_ PROGRAM 


tie NE 


BRB 10$ 


AX/VMS Macro Vv04-00 


"REP 9be 68: 18:2 4 RTPAD.SRCJRTPAD.MAR; 1 


: rps ex =v be zero before exiting 
ENBFLG = #1 : AtPow°ast delivery (turned off by Quit) 
SYSSSETAST ha atvey- ask Five 
#1,G*SYSS$SETAST 


3; loop 


; Wakeflag is set, exit back to DCL 


SSETAST_S 
.G 


SCANCEL_S 
-GLOBL 
MOVZWL 
CALLS 


SCANCEL_S 


SCANCEL_S 
- GLOBL 


MOVZWL 
CALLS 


SPUTMSG_S MSGVEC = EXITMSG 
-GLOBL 


#0 3; Shut down ast delivery 


TERMMBXCHAN, = (SP) 
#1,G*SYSSCANCEL 


CHAN = MAILCHAN 
SYSSCANCEL 
MAILCHAN, -(SP) 
wi EE YSSCANCEL 


CHAN = LINKCHAN 
SYSSCANCEL 
LINKCHAN, -(SP) 
#1,G°SYS$CANCEL 


; Tell user why 
SYSSPUTMSG 


PUSHL #0 
~yonnee = 0, MW pees =Q 


PUSHL 
PUSHAQ 
-ENDC 


SPUSHADR 0 


i 
0 
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TPA -SEP=-19 2 H Page 14 
¥0%-800 RTPAD = MAIN ROUTINE §- Eee 86: :¢ RTPAD.SRCJRTPAD.MAR; 1 . (1) 
67 SPUSHADR EXITMSG 
4 P DN,O,EXITMSG 
5 PUSHL #0 
0128'CF DF 67 PUSHAL EXITMSG 
oes -ENDC 
00000000 ' GF 046 #«FB CALLS #4,G*SYSSPUTMSG 
7 17 
a a8 $Q1G9_S CHAN = CNTRLCHAN - ; Get rid of the “Y AST request 
4 19 FUNC = #10$_ SETMODE! IOSM_CTRLYAST 
7 .-GLOBL sy3Sa10 
07 SPUSHTWO #0,4 
00000000 007 $$T1 = 0 
07 IF IDN, <#0>, <#0> 
boo IF IDN,<#0>,<#0> 
00000001 007 $$T1 = 1 
007 -ENDC 
007 »ENDC 
00000001 007 IF NE $$T1 
7E 7C 007 CLRQ (SP) 
0074 LFF 
Bere PUSHL #0 
074 PUSHL #0 
0074 -ENDC 
0074 
0074 SPUSHTWO #0,40 
00000000 0074 $$Ti = 0 
0074 | IDN,<#0>,<#0> 
Boe IF 1DN,<#0>,<#0> 
00000001 0074 $$T1 = 1 
Bane ~ENDC 
074 -ENDC 
60000001 0074 IF NE $$T1 
7E 7C 0074 CLRQ -(SP) 
0076 o1FF 
once PUSHL #0 
076 PUSHL #0 
0076 -ENDC 
0076 
00 =«~=DD 4 PUSHL #0 
07 SPUSHADR 0 
Boe IF IDN,0,0 
00 =«~+DD 7 PUSHL #0 
O7A oIFF 
O7A PUSHAL 0 
O7A -ENDC 
O7A 
BoA SQIOPUSH #0,0 
00000000 7A $$T1 = 0 
7A IF IDN, <#0>, <#0> 
7A iif IDN,<0>,<0> 
00000001 7A $$T1 = 1 
7A -ENDC 
7A -ENDC 
00000001 7A IF NE $$T1 


ee 
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v04= RTPAD = MAIN ROUTINE “SEP=1984 05:15:47 CRIPAD.SRCJRTPAD.MAR; 1 (1) 
ce CLRQ -(SP) 
IFF 
PUSHL 8 
SPUSHADR 
~ENDC 
~yeen e.Cgureat=s 
I0N,0,0 
00 DD PUSH #0 
PUSHAQ 0 
~ENDC 


7E QOA3 8F $c 


MOVZWL #10$ Vee PE eal CTRLYAST,=(SP) 
7E 0154°CF (SP) 


MOVZWL CNTRCCHAN,- 
PUSHL 
CALLS #12,G6*SYS$QI0 


C0000 0D VO NYY 
NW 2 3 2 2 SS OWIMMMMMOOOOOOoOooy 


SOOO OoOoOoOooooOooooooO: 


00 OD 
Q00000000'GF OC FB 
31 
0 $6 : Restore original out of band and resouce wait mode 
7E 06 6 3 CLRL = =( SP) 
O31iC'CF OF 8 5 PUSHAL ee 3; Reenable cli out of band characters 
00000000'GF 02 FB bee 261 CALLS #2,G*LIBSENABLE_CTRL 
O9E $f SSETRWM_S - ; Set resource wait mode 
09E 229 WATFLG = OLDSET 3; to whatever it was upon entry 
O9E -GLOBL SYSSSETRWM 
0320'CF DD 009 PUSHL OLDSETRWM 
00000000'GF 01 FB GOAs CALLS #1,G*SYSSSETRWM 
QOA9 230 
FF54" 30 oear 3 BSBW CTERMSCLOSE_LOG :; Close Log file if open 
50 O309°CF DO OOAC g MOVL RETSTATUS, RO 3; Get saved status 
50 00000000°8F D1 00B1 34 CMPL #SsS$ _EXQUOTA, RO 3 Exceeded some quota? 
1A 12 oer $32 BNEQ 100$~ 3; nope, exit 
ores op sue ir 
01FE115B ef 4 aco ip a eg #REMS_ATPC 
00000000'GF 04 FB Os $} CALLS #4,G*LIBSSIGNAL 3 signal error 
50 0309°CF D0 OOCF rk MOVL RETSTATUS,RO 3; Get saved status 
04 ie rt: 100$: RET ; Exit program 
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00 «SBTTL INIT = INITIALIZATION OF LINK, ETC. 
: FUNCTIONAL DESCRIPTION: 

PERFORMS INITIALIZATION FUNCTIONS FOR RTPAD 
CALLING SEQUENCE: 


v04~000 Int = 


OSoOOoOoooooooooo 
OOOOCoooooooooo 


cvvvVvVv Vv VcvVc Vv Vv CcCcC"CUC0c00c00c0Cc0C0C0"00C0—O9 =m 


DODO OO OV GMP PUPPUSPUDVUIVSUSUSUSUSVSU SUSU USUSUS USUI ESIOSIOSISIOSOSIASISIOSIOSIOSIOSIO 


JSB INIT 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 

CHANNEL NUMBERS, ETC. 
COMPLETION CODES: 

WILL RETURN COMPLETION CODES OF SYSTEM SERVICES WITH UNEXPECTED ERRORS 
SIDE EFFECTS: 


OOoooooooooo 


SOSOSOSSOSOOSOSOSOSOSOSOSOSOSOSOSOOOOSOSOSOOSOOSOSOOOSOOOOOOSoOOO: 


0D 
0D 
OD 
OD 
OD 
4 0 SETS UP DECNET LINK TO REMOTE NODE 
0D 81 ;-- 
0D 86 
0D $ INIT: 
0D 4 $TRNLOG_S - ; Translate a Logical name 
0D 85 “LOGNAM = Abe rere § ; from SYSSNODE 
0D 86 RSLBUF = vos bey .* ; to the ending message 
OD 87 RSLLEN = NODENAME 3 setting the correct length 
0D eLOBL SYSSTRNLOG 
00 DD 00D PUSHL #0 
: SPUSHADR 0, Ow i 
00 dD 00D BUSH L bo 
0D -IFF 
0D PUSHAB 0 
3 -ENDC 
4 epyeuien 0, CONTEXT=B 
00 oD D PUSHL 
DB LFF 
DB PUSHAB 0 
DB ENDC 
DB 
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VO4 INIT = INITIALIZATION OF LINK, ETC. -SEP-1 1382 8g: 3:2 RTPAD.SRCJRTPAD.MAR; 1 . (1) 
poe SPUSHADR 1BN, 0 NODENAR CONTEXT=Q 
DB F AME 
+ PUSH L 
O1BO'CF 7F dB PUSHAQ NODENAME 
+4 ~ENDC 
ODF pyemee 1BN, 0 WDENAR CONTEXT=W 
ODF AME 
= ne 
01B0'CF 3F Bp BuSHAU NODENAME 
: -ENDC 
SpE a, ay oterg wo cei Q 
OE IF YS$NODE 
43 PUSHL 
04C6'CF 7F OE PUSHAQ SYSSNODE 
ha ~ENDC 
00000000'GF 06 FB td CALLS #6,G*SYSS$TRNLOG 
QOEE 288 ONERROR RET 3 Exit on error 
01 50 €8 OOEE BLBS RO, 300008 
04 OOF1 RET 
OOF 30000$: 
OOF 
OOF 89 ‘ rs 
OOF 90 STRNLOG_S - 3; translate ‘'RTPADSLOG 
OOF 91 LOGNAM = RTPAD_LOGNAM,- 
OOF 9 RSLLEN = RTLOG. DESC, = 
OOF .) RSLBUF = RTLOG DESC 
OOF por Oat SHSSTRAL OG 
00 DD OOF PUSHL #0 
OOF4 SPUSHADR 0, CONTEXT=B 
OOF4 If 0, 
00 DD OOF4 PUSHL #0 
OOF6 J 1FF 
OOF6 PUSHAB 0 
pare - ENDC 
pore SPUSHADR 0,CONTEXT= 
OF © F 1DN,0,0 
00 DD OOF PUSHL #0 
OF IFF 
oF PUSHAB 0 
oF -ENDC 
OF yeas BTL oe DESC, CONTEXT=Q 
F N,O,RTLOG_DESC 
OF PUSHL i 
OF stim 
O2BA' CF 7F F PUSHAQ RTLOG_DESC 
ore -ENDC 
OFC SPUSHADR RTLOG_DESC,CONTEXT=W 
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yo4~000 INIT = INITIALIZATION Gt LINK, ETC. ~$een18be 85518525 HAXENIS Magne, V04=00 oat.” 
FC Peli IDN,0,RTLOG_DESC 
4 PUSHL #0 
O2BA'CF 3F OF PUSHAW RTLOG_DESC 
1 . 
1 SPUSHADR RTPAD_LOGNAM, CONTEXT=0Q 
1 wIF IDN,0,RTPAD_LOGNAM 
! et #0 
O2p2'ck 9=7F «O01 PUSHAQ RTPAD_LOGNAM 
! 2 ~ENDC 
00000000 ' GF 06 FB 108 CALLS #6,G*SYSS$TRNLOG 
0000 ' 8F 50 ~B1 10: 94 CMPW RO, #SS$_NOTRAN 
1€ 13 O11 95 BEQL 5$ 3: continue if no definition 
18 50 =—«E9 He 38 BLBC RO,5$ 3; or error 
Otte a8 : translate hex byte string to binary value 
02B6'CF DF O13 00 PUSHAL RTLOG_FLAGS : flags 
O2C2'CF oF 119 01 PUSHAB RT BUF 3; strin 
7E OQO2BA'CF 3c 60011D 8g MOVZWL RTLOG DESC,-(SP) 3; lengt 
00000000'GF 03 FB 01 g 0 CALLS #3,G*CIBSCVT_HTB 3 convert hex to binary 
0450 €8 01 04 BLBS RO, :; go if ok 
O2B6'CF D4 + 5 b2 CLRL RTLOG_FLAGS 3; otherwise zero 
4 0 07 5$: $GETDVI_S - ; Get the device characteristics 
130 08 DEVNAM = TTYDESC, - 3 of the translated SYSSINPUT 
3 0 09 ITMLST = DVILIST 
130 -GLOBL SYSS$GETDVI 
b135 SASNPUSH 0,40 
00000000 0130 $$T1 = 
$138 IF IDN,<0>,<0> 
1 .IF IDN,<#0>,<#0> 
00000001 0130 $$T1 = { 
01 3 -ENDC 
1 -ENDC 
00000001 130 IF NE $$T1 
7E 7C¢ : core -(SP) 
1 SPUSHADR 0, CONTEXT=Q 
1 PUSHL #0 
! -ENDC 
1 SPUSHADR 0 
1 olf IDN,0,0 
00 oD 1 PUSHL #0 
134 -1FF 
134 PUSHAL 0 
: 2 ~ENDC 
134 SPUSHADR 0,CONTEXT=0Q 
134 olf IDN,0,0 
00 oD 134 PUSHL #0 
136 oIFF 
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PUSHAQ 0 

-ENDC 

SPUSHADR DVILIST ° 

. ION,0,DVILIST 
PUSHL #0 


FF 
OSSE’CF OF PUSHAL DVILIST 
~ENDC 
SPUSHADR hy 
PUSHL Hi 
FF 


PUSHAQ TTYDESC 
-ENDC 


MOVZWL #0,-(SP) 
CALLS #8,G*SYSSGETDVI 


310 ONERROR RET ; Die if any error 
BLBS RO,30001$ 


RET 
30001$: 


DESC, CONTEXT=Q 
N,0,TTYDESC 


O4D6'CF 7F 


ve © 
00 oD 
00000000°GF 08 FB 


01 50 FS 


“Devs An TTYDESC - 

PRIBUF Ais: MCHA 
.GLOBL SYSS$GETDEV 
$PUSHAOR 0; ,CONTEXT=Q 
PUSHL #0 - 


- 1FF 
PUSHAQ 0 
-EN 


11 
HE SGETDEV_S : RSX, ETC. WANTS THIS 
314 


00 DD 


— 
00 DD 


SPUSHADR TERMCHAR, CONTEXT=Q 
o If IDN,0, TERMCHAR 
PUSHL 


wIFF 
0084'CF 7F PUSHAQ TERMCHAR 
~ENDC 
SPUSHADR 
PUSHL # 
LFF 
PUSHAW 0 


00 DD 


SOOOCOSOOOCOOCOOCOOCOSCOOCOSCOOSSOOSOS OOOO OSCOOOOOOOOCOOOOOOOOOOOOOOO 


ee a a et ed tt ot 3 = = = = = = = = 4 2 2 2 ot ss = 8 2 2 1 2 1 8 1 ss 8 a tt et a 
DPD AAA AAAI ATA AAI ES BS BS BS BS BS BB BE EE WANNA NIAAA 


WOOP AOA OPP IPINIPINIININIVOOCOCOCOCOCOMMMMMMMMMMO > > >W—-MMmny> > > bP Pb FP POCO 


=—FTOMMOOD 2 BK KOH TOMMOODZ Sl KOH TO MWMIOOCOZ Sl KCK TO MWMMOOOZ SS KCK TOM™IOOW 


| 
| 
| 
| 
| 


B 16 
RTPAD - REMOTE TERMINAL PROGRA 16-SEP-1984 02:15:27 VAX/VMS Macro v04-00 Page 20 
¥04-000 INIT = INITIALIZATION OF mim, ETC. ae bg: 18: 2) ERIPAD SR RTPAD.MAR; 1 ° (1) 
13 -ENDC 
1 SPUSHADR AY it 79 TEXT=0Q 
15 F N,0,TTYDESC 
1 PUSHL ip 
O4D6'CF 7F 12 PUSHAQ TTYDESC 
81 2¢ ~ENDC 
00000000 ' GF 05 FB B126 CALLS #5,G°SYSS$GETDEV 
16 315 — : T 
0150 +=€8 8183 BLB ,30002$ 
04 0166 BET 
0167 30002$: 
0167 
0167 316 
0060" CF 0054'CF 90 0167 317 MOVB DEVCLASS_TEMP, urea ; Pack the data correctly 
Q0061'CF O058'CF 90 B198 318 MOVB DEVTYPE_ TEMP, DEVTYPE 
0062'CF 005C'CF BO Bie? 520 MOVW DEVBuUF STZ _TEMP, DEVBUF SIZ 
00' 8F 0060'CF 91 O17C 21 CMPB DEVCLASS, #DC$_TERM 3; Is it a terminal? 
1. 33 Mine See BEGL 10$ : Yes 
0184 323 SPUTMSG_S - ; Output an error message 
0184 324 “MSGVEC = NOTTERM 3; saying SYSSCOMMAND not a terminal 
0184 -GLOBL SYSS$PUTMSG 
00 DD 0184 PUSHL 
0186 SPUSHADR 0,CONTEXT=Q 
0186 IF IDN,0, 
00 DD 0186 PUSHL #0 
0188 1FF 
0188 PUSHAQ 0 
0188 -ENDC 
0188 
0188 SPUSHADR 0 
3138 . IDN,0,0 
00 DD 018 PUSHL #0 
018A 1FF 
018A PUSHAL OG 
018A -ENDC 
018A 
018A SPUSHADR NOTTERM 
018A mS IDN,0,NOTTERM 
BIA PUSHL 40 
018A ~1FF 
O11C'CF OF Bige PUSHAL NOTTERM 
3 : -ENDC 
00000000 ' GF 04 FB OIE CALLS #4,G*SYSSPUTMSG 
04 0195 325 RET 
Biss is 
O196 8 ; Call RTL routine to assign channel and associate mailbox to terminal 
B130 0 10$: : : 
O1S8°CF 3F 0196 1 PUSHAW TERMMBXCHAN ; Arg #5 is the terminal mailbox chan 
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R IN 
] LI 
OI6C'CF 3F 19A PUSHAW READCHAN 3; Arg #4 is the terminal input channel 
| O764'CF OF 125 : PUSHAL MAXMSGSIZ ; Arg #3 is the message butter quota 
O764'CF DF OIA 4 PUSHAL MAXMSGSIZ ; Arg #2 is the maximum message size 
,O4D6'CF = 7F O1A6 5 PUSHAQ TTYDESC ; Arg #1 is the terminal device name 
00000000'GF 05 FB OQI1AA 6 CALLS #5, G*LIBSASN_WTH_MBX =; AsSign a channel w/ a mailbox 
181 37 ONERROR RET 3; Die if any error 
0150 €8 0161 BLBS RO, 30003$ 
04 1B4 a 
0185 30003$: 
0185 
0185 38 ; 
8182 i ; Assign a terminal write channel 
0185 341 SASSIGN_S - ; Assign a channel 
0185 308 DEVNAM = TTYDESC, - 3: to the terminal device 
01B5 34 CHAN = WRITECHAN : for terminal output 
0185 -GLOBL SYSSASSIGN 
01B5 SASNPUSH 0,4 
00000000 0185 $$T1 = 
0185 IF IDN,<0>,<0> 
0185 IF IDN,<#0>,<#0> 
00000001 0185 $$11 = { 
0185 ~ENDC 
0185 -ENDC 
00000001 0185 IF NE $$T1 
7E 7C «0185 CLRQ -(SP) 
01B7 w1FF 
0187 SPUSHADR 0,CONTEXT=Q 
0187 PUSHL #0 
0187 ~ENDC 
01B7 
0187 SPUSHADR WRITECHAN, CONTEXT=W 
0187 IF IDN,0,WRITECHAN 
0187 PUSHL #0 
0187 .IFF 
0150°CF 3F 0187 PUSHAW WRITECHAN 
01BB -ENDC 
0188 
0188 SPUSHADR TTYDESC,CONTEXT=Q 
0188 . IDN,0, TTYDESC 
01BB PUSHL #0 
0188 oIFF 
04D6'CF 7F 0188 PUSHAQ TTYDESC 
ler ~ENDC 
00000000 ' GF 04 FB gee CALLS #4,G*SYSSASSIGN 
01C6 344 ONERROR RET ; Die if any error 
01 50 Fe 01C6 BLBS RO, 30004$ 
4 01C9 Ree 
at 300048: 
1CA 
OICA 45 ; 
Bite r 3; See if SYSSINPUT is a file 
O1CA «348 $OPEN FAB = SYSINFAB : Open SYSSINPUT 
O1CA SRMSCALL OPEN, SYSINFAB,, 


09000001 


QOOOOOCF 
00000070 


00000080 


00000000'GF 01 


FFFFFFFE 
O21C'CF 


—D 
—m 
=z 
‘oO 
— 
4 
=—m 
—2D 
>= 
o_o 
—Zz 
~> 
>r 


PRO 
I] 


GLOBL 


Pree eo te es Ge es Pe Pore « 


MAC — MMMM ef N He (NN HH He 


Ue 


DF 


FB 


349 ONERROR 
BLBS 


RET 

30005$: 
9 BBS 
¢ INCB 


staiwatabdaimdsdatataiaduataimdadAatabaiawdaddabatababmadabmaiahabababababababadababad ab abad ab abet dad ab aad adanbad 
NNW OOOOUMMMUIMMM > > >> Pr rr rrrrrrrr>r>rrrrrr rr rrr rrrrrr>r>r>rrY 
. 
m 
z 
i=] 
o 


| 
CALLG 


fe Je fw |e le) we we we we we) we we we wl wl www lola awl wl eleoleloleleleolelelelelelelelelelelealelelelelelelelelealelelel al alo) 


GRAM 
TION OF LINK, ETC. 


INDFLA 
SCONNECT RAB = 
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Page 
PAD.SRCJRTPAD.MAR; 1 


1o-SEP=1984 02:15:27 WA 
essay Pi bgieiee tA CRT 
SYSSOPEN 
B <SYSINFAB> 

(AP) ,G*SYSSOPEN 

<> 


<> 


$$. TMP 

; SYSINFAB= parameter missing; 
<SYSINFAB> 
NB <> 


B <> 
Q <$$.TMP1-1> 


<$$.TMP1-3> 


$$. by f SYSINFAB 
EQ <<$$.TMP28*XF0>-*x50> 
SYSINFAB 


EQ <<$$. TMP28*XF0>-*x10> 
SYSINFAB 
SYSINFAB 


#$$.TMP1,G*SYSSOPEN 


RET 
RO,30005$ 


#DEVSV 
SVS IN KBer ASSL DEV,20$ 


ow 
SYSSCONNECT 
B <SYSINRAB> 

(AP) ,G*SYSSCONNECT 


; Branch if terminal 
: gnatcese indirect file 
RAB onnect to input stream 
CONNECT, iySINRAS., 


an 


00000001 


FFFFFFFE 


QOOOOOCF 
00090076 


00000080 


026C'CF 


00006000 ' GF 


01 


01 50 


E 16 
OGRA 
ON OF LINK, ETC. 
$$. TMP=0 
N 
$$. TMP=1 
-ENDC 


— 1D 
-—m 
=z 
=) 
“ 
- oO 
my 


16-SEP-1984 02:15:27 VAX/VMS Macro v04-00 
g iets 8g: 48:25 RTPAD.SRCJRTPAD.MAR; 1 


-_ | 
2 


l NB 
$$. TMP=1 
-ENDC 
° NE $$.1MP 
ERROR ; SYSINRAB= parameter missing; 
NB <SYSINRAB> 

B <> 


NB <> 
oak Q <$$.TMP1-1> 


-IFF 
F EQ <$$.TMP1-3> 


*ee “Oe 


PE red SYS INRAB 
EQ <<$$. TMP28*XF0>-*x50> 
L SYSINR AB 


EQ <<$$. TMP28“XF0>-*x10> 
L SYSINRAB 


L SYSINRAB 


“We - We 


“Ue 
MmPSMMN CHC ee Ce BV IMNINC 


DF 


FB #$$.1MP1,G*SYSSCONNECT 


e Cie « 


354 ONERROR RET 
B RO, 300068 


203:  $CLOSE FAB = SYSINFAB 't use it 
CLOSE, SYSINFABS, 


B> 
SCLOSE 


Se MMMM MM MmMMmMmMmMmMmMmMmMmMmMmmMMmmMmMmmMmmimMmmMmrmrmmrmrnrnirmrirnirnirnirnich <r 
n»p 


bw J ae ee ae |e) ne | oe |e ne) we) we) we we we we we we) ww we ww lw wl al eal olololeololeleleleleolelelelelelelelelelelelolelelelelalelolol a) 
COCOCOCOCO CODCOD COCOA AOU DD NNN NSN 


ma a a ed a a td od dd 8 2“ 8 ot 8 2 8 a 8 
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RTPAD - REMOTE TERMINAL PROGRAM 16-SEP-1984 :15:27 VAX/VMS Macro v04-00 Page 24 
v04-000 INIT = INITIALIZATION OF LINK, ETC. eet 1 8g: 43:25 RTPAD.SRCJRTPAD.MAR; 1 ° et) | 
1F F NB <> 
1F $$° tmp et 
1F END 
1F lf NE $$. TMP 
if “so ; SYSINFAB= parameter missing; 
if i NB <SYSINFAB 
. > 
00000001 O1F $$’ rupte! 
gir IF NB <> 
1F PUSHAL 
gif $$. TMP1=3 
1F ~ENDC 
O1F8 IF NB <> 
O1F8 PUSHAL 
O1F8 IF ga <$$.TMP1-1> 
01F8 $$.TMP1= 
O1F8 ~ENDC 
01F8 o1FF 
FFFFFFFE O1F8 LF EQ <$$.TMP1-3> 
01F8 PUSHL #0 
O1F8 ~ENDC 
01F8 -ENDC 
QOOOOOCF O1F8 NTYPE $$. wes. SYSINFAB 
00000074 O1F8 IF EQ < $’THP2e"KF 0>="X50> 
bite te SY Sint as 
00000080 01F8 IF EQ <<$$. TMP28*XF0>-*x10> 
O1F8 PUSHL SYSINFAB 
O1F8 FF 
021C'CF DF O18 PUSHAL SYSINFAB 
OFC ~ENDC a 
O1FC -ENDC 
00000009 ' GF 01 FB pirs CALLS #$$.1TMP1,G*SYSSCLOSE 
020 .ENDC 
0203 
020 
020 58 30S: 
020 59 3 
020 60 3; Check for /LOG C=filespec) 
020 61 : 
ees 
7F 0 6 PUSHAQ LOG_DESC ; LOG Label 
00000000' or ot FB 8 eS 64 CALLS #1, G*CLISPRESENT :; See if present 
0 €9 OF o BLBC RO, 62$ : branch if not present 
01A0'CF 7F § 11 6 PUSHAQ LOG_FILE_DESC ; return buffer 
0167'CF 7F 0215 68 PUSHAQ LOG DESC™ C lLabe 
00000000 ' GF 98 FB 19 69 CALLS 46-6 CLISGET VALUE ; get value 
OE 5 E9 4! BLBC RO,61$ 3; continue if no error 
AO'CFE 7F 7 PUSHAQ LOG _FILE DESC 3; use this file 
00000000' cr 1 3 FB 7 CALLS #1,G*°CTERMSOPEN_LOG 3; Open OB vie 
0 8 ‘ 74 BLBS RO,62$ : Branch if o 
4 75 61$: ET 3 exit on cen 
§ 6 62$: 


RTPAD = REMOTE TERMINAL PROGRA 16-SEP-1984 :15:27 VAX/VMS Macro v04-00 
v04-000 INIT = INITIALIZATION OF LINK, ETC. -SEP=1984 8g:13:25 RTPAD.SRCJRTPAD.MAR; 1 
4 ; Get node name from CLI 
0198 CF 7F 0 PUSHAQ NODE _NAME_DESC ; Return buffer 
,O17D'CF =F 1 PUSHAQ WODEDE SC ; Parameter name 
00000000'GF 02 FB A ¢ CALLS #2, G*CLISGET_VALUE 3; Get node name 
41 38 ONERROR Ret ; Exit on error 
61 50 Fe 4) BLBS RO,30007$ 
4 44 a 
45 30007$ 
<3 
4 84 
$2 82 3 
4 § 3; Check for /DTE 
45 8 ; 
"CF 7F 5 43 He PUSHAQ DTE_DESC DTE Label 
3 abe 
00000000'GF 01 FB 0249 90 CALLS #1, G*CLISPRESENT : See if present 
E9 8 : $3 BLBC RO, NOT_DTE ; branch if not present 
025 9 
3 iy ; Kludge NODENAME so CR,LF happen on exit 
50 O1BO'CF 3¢ 025 96 MOVZWL NODENAME,RO ; length 
50 O1B4°CF (CO osee 97 DDL2 NODENAME+4,R0 ; plus address 
01B0'CF O02 AO 025d 398 ADDW #2,NODENAME : add to length 
60 ODOA 8F B80 0387 ike MOVW #*XODOA, (RO) ; CRLF 
7E Q150°CF 3C 0267 401 MOVZWL WRITECHAN,-(SP) ; command channel 
0198'CF 7F Q26C 402 PUSHAQ NODE _NAMC DESC ; value of P1 
00000000'GF 02 FB 0270 403 CALLS #2,G*TERMSEMULATE ; call terminal emulation code 
0277 404 ONERROR RE 3: exit immediately on error 
0150 + €8 S144 BLBS RO, 36008$ 
04 O27A RET 
0378 30008$: 
05 0278 405 RSB ; otherwise, return to hiber code 
027C 406 
027C 407 NOT_DTE: 
027C 408 $ 
O27C 409 ; Assign a channel for “C and “Y handling 
027C 410 . 
ogre 411 $ASSIGN_S - : Assign a channel 
027C sig DEVNAM = TTYDESC, - : to the terminal device 
7C 41 CHAN = CNTRLCHAN 3; for control (AST‘s) 
7C -GLOBL SYSSASSIGN 
7C¢ SASNPUSH 0,40 
00000000 7¢ $$T1 = 0 
7C¢ -1F IDN,<0>,<0> 
7C¢ IF IDN,<#0>,<#0> 
00000001 027¢ $$11 = { 
7¢ -ENDC 
7C¢ -ENDC 
09900091 7C IF NE $$T1 
7E C 7¢ CLRQ -(SP) 
7E a IFF 
7E SPUSHADR g-COMTERT << 
7E PUSHL # 
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43 -ENDC 
7E SPUSHADR CNTRLCHAN, CONTEXT=W 
7E P 1DN,0,CNTRLCHAN 
43 PUSHL #0 
0154°CF 3F 027 PUSHAW CNTRLCHAN 
$ -ENDC 
‘ 8 SPUSHADR TTYDESC,CONTEXT= 
IF DN,O,TTYDESC 
Pusu #0 
O4D6'CF 7F 028 PUSHAQ TTYDESC 
8 $6 ~ENDC 
00090COU' GF 04 FB 8 : CALLS #4,C*SYSSASSIGN 
038 414 ONERROR RET 3; Die if any err 
0150 £8 0380 BLBS RO, 30009S fisinincasy 
04 0296 RET 
94 30009$: 
0291 
0291 415 
§ 31 419 : L th h d ili 
3; Lo ro t t :' 
0991 cig op ugh node name to remove trailing :'s 
52 0198°CF 7D $59] 420 ova NODE _NAME_DESC, R2 ; Get node name length, address 
=m. CU 76 0296 421 MOVZWL R2, R2 : and isolate its real Length 
OA 13 0299 4 § BEQL 3: No Loggynet 
3A «FF A342)0«91—(029B) Ss 423. 408: CMPB “1(R3)CR2], #*A':' 3: A trailing colon? 
09 12 QO2A0 424 BNEQ 60$ 3; Nope 
F6 52. CFS COO Me 425 SOBGTR R2, 40$ : Yep, remove it from count and Loop 
50 0000°B8F  3¢ 0 AS 426 50$:  MOVZWL #SS$_NOSUCHNODE, RO : Error 
04 8 - ; 4 RET 3; and exit 
QOOO'CF 52 7D 0 ~ ? ; 60$: mMOVQ R2, REMOTENODE ; Save the node name descriptor 
BO 431 : 
0280 $36 3; Form the network connection string 
$589 3a : 
0189°CF 7F 9280 435 PUSHAQ OBJ_DESC 3; Arg #3 is the right part (obj type) 
QOOO'CF 7F 9 Be 3 6 PUSHAQ REMOTENODE : Arg #2 is the left port nos nane} 
QIAS'CF 7F B8 i PUSHAQ yoy 36 ; Arg #1 is the resultant string 
00000000'GF 03 FB B 438 ALLS #3, G*STRSCONCAT ; Go concatenate for connection string 
C 439 ONERROR 3; Exit on error 
01 50 8 C LBS RO, 30010$ 
4 C8 Ree 
cf 30010$: 
58 O1AC'CF 6 C1 C7 = 440 ADDL3 R2, CONNDESC+4, RB ; Address just beyond node name 
58 03° CO cD ite ADDL  S*#OBJ_C_PREFIX, R8 : then offset to object number 
D 445 ; 
0 444 ; «* TEMPORARY CODE TO DETECT /OLD QUALIFIER 
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RTPAD = REMOTE TERMINAL PROGRAM 16-SEP-1984 15:27 VAX/VMS Macro v04-00 Pa 7 | 
v04-000 INIT = INITIALIZATION OF LINK, ETC. Beep n 158s 08:18:47 EATPAD SReTRTPAD Maes 1 oe 
O1sc'ce 7F O5p0 de haq old.d TEMP 
ushaq o esc 3 tte 
00000000 ' GF o Fe D4 469 Polis. 1," ggs Seresent 3; ee TEMP 
E DB 4448 blbc r0 gs ; *** TEMP; /NOOLD, go try 42 first 
68 3352 8F 860 D 449 movw #°A'23", (r8) ; *** TEMP; /OLD, change to 23 
E $29 65$: 3; see TEMP 
Hg 
; 438 ; Connect to the remote node by requesting a logical Link 
E3 455 ‘ 
O208'CF 7F E 456 70$: PUSHAQ PSTHRU_MSG ; Address the PSTHRU message desc 
Q0000000'GF 01 FB E 233 CALLS #1, G*STRSFREE1_Dx ; _and free up anything innit 
EE 458 ONERROR R ; Exit on error 
0150 €E8 OQ2EE BLBS RO,30011$ 
04 O2F1 a 
0 3 300118: 
O764'CF 3F 5 F 459 PUSHAW MAXMSGSIZ ; Arg #7 is the maximum message size 
O421'CF OF F6 460 PUSHAB 180$ ; Arg #6 is the message call routine 
0200'CF 7F O2FA 461 PUSHAQ FINALA ; Arg #5 is the final ACS desc 
OIFS'CF 7F O2FE 106 PUSHAQ FINALPATH ; Arg #4 is the final path desc 
0148'CF Hi 0302 46 PUSHAW MAI 3; Arg #3 is the Link mailbox channel 
0144'°CF F 0306 464 PUSHAW LINKCHAN 3; Arg #2 is the Link channel 
O1A8°CF 7F OQO30A 465 PUSHAQ CONNDESC 3; Arg #1 is the “‘device’’ desc 
00000000'GF O07 FB back 466 CALLS #7, 5 _UNSeNE Tt COMEET ; Do the remote node connection 
1350 €8 Q31 467 BLBS RO, 80$ ; Continue if success completion 
oai8 468 
O318 490 ! If object type 42 failed then try object type 23 
; objec e aile en try objec e 
0318 ar yp y ob) yp 
51 68 B0 o318 238 MOVW (R8), R1 3; Save the object type we just tried 
68 3332 8F B80 031B 474 MOVW WA O3" (R8) 3; _then replace it object type ¢3 
3332 8F 51 861 359 475 CMPW R1, #*A‘23' ; Did we just try object type 23? 
Bc. Oo] 325 476 BNEQ 70$ ; Nope, so go try object ‘ype 23 
00EO 30 0327 477 BSBW 170$ ; Go output any saved PSTHRU message(s) 
04 BaSa $28 RET 3 then exit with the error 
oopc 30 Re 230 80$: BSBW 170$ ; Go output any saved PSTHRU message(s) 
O32E 48 H 
032E 183 3; Read initial pesgoge from HOST process, this is the 
; rtf} ; BIND message in TSA terminology. 
—E 4 ; 
55 O324°CF 9E ri MOVAB  FIRSTMSG, R5 ; Address of area to receive message 
3 488 $Q10W_S - 3 Read Gee 16 message 
489 CHAN = LINKCHAN, - ; on the Link channel 
490 FUNC = #10$ READVBLK, - ; reading obviously 
491 OSB = AST$Q_IOSB(R5S, -'; use an 10 
; £35 Pl = ASTST BOF(RS), - into this buffer 
49 P2 = #MAXMSG ; which is this long 
. GLOBL $¥39010u 
seysht #0 ,# 
00000000 $$T1 = 
IF IDN,<#0>,<#0> 


J 16 
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N ATION OF LINK, ETC. -SEP-1984 RTPAD.SRCIRTPAD.MAR; 1 (1) 
fF 1DN,<#0>,<#0> 
00000001 sth = 1 
“ENDE 
00000001 “IF NE $$T1 
? oH cLRa -(SP) 
PUSHL 40 
PUSHL # 
.ENDC 
SPUSHTWO #0,4 
00000000 HA “5 hens 
Hh 1uG83:48 
00000001 i $s11=1 * 
; ~ENDC 
ENDC 
00000001 03 “IF NE $$T1 
7E 7C (03 CLRa 0. = (SP) 
33 .IFF 
3 PUSHL #0 
3 PUSHL #0 
.ENDC 
0000041A 8F DD PUSHL 


#MAXMSG 
SPUSHADR asst BUF (R5) 


IF N,0,AST$T_BUF (RS) 
ait 
26 AS COD PUSHAL ASTS$T_BUF(R5) 
-ENDC 
SQIOPUSH #0,0 
00000000 $$T1 = 0 
aif IDN,<#0>,<#0> 
If IDN,<0>, <0> 
00000001 $$T1 = 1 
-ENDC 
eENDC 
00000001 : IF NE $$T1 
nm. CLRQ -(SP) 
FF 
PUSHL 
SPUSHADR 
-ENDC 


SPUSHADR AST$Q_I0SB(RS5) ,CONTEXT=0 
w IF DN,0,ASTS$Q aittt R5) 
PUSHL #0 


-IFF 
PUSHAQ AST$Q_I0SB(R5) 
NDC 


MOVZWL #10$_RFADVBLK,-(SP) 
MOVZWL LINKCHAN, »7 (SPS 
PUSHL 


SO DWUIMIVIPIPOPINPIPUIPINOINININ OO 000 O00 009 999 PF NINN NINN PASAT TUTTI UTNE 


SOOOOCOCOOCOOOCOOCOCOOCOOSO COSCO OOOOOCOOOOOOOOOOOOoOO 


HANAN NANIAAI WAI AANIWINIAIANIAIANNIAAINININIANI NIN WWIII WIN 
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RTPA = REMOTE TERMINAL PROGRAM 16-SEP-1984 15:27 VAX/VMS Macro v04-00 Pa 9 
yO4-000 INIT = INITIALIZATION OF LINK, ETC. ey 7 96:48:25 RTPAD.SRCJRTPAD.MAR; 1 = ¢) 
Q00000GO'GF OC FB GF CALLS #12,G*SYSSQI10W 
17 E8 é 494 BLBS RO, 110$ : Branch if ok 
38 DD 495 100$: PUSHL RS ; Save error status 
8 £38 SPUTMSG_S - ; Output an error someon 
5B 49 MSGVEC = DECNETERR 3 saying some sort of link error 
8 -GLOBL SYSSPUTMSG 
00 = DD 8 USHL o 
5D SPUSHADR "Www set 
5D . IDN,0,0 
00 DD 2p PUSHL #0 
6 3 PUSHAQ 0 
5F -ENDC 
O35F 
8 SF SPUSHADR 0 
5F If 12N,0,0 
00 DD O35F PUSHL 40 
0361 . 
0361 PUSHAL 0 
0361 - ENDC 
0361 
0361 SPUSHADR DECNETERR 
0361 IF IDN,0,DECNETERR 
0361 PUSHL #0 
0361  1FF 
0110°CF DF 0361 PUSHAL DECNETERR 
pace -ENDC 
00000000 ' GF 04 FB Oaee CALLS #4,G*SYSSPUTMSG 
50 8ED0 baee 498 POPL RO 3; Restore the error status 
04 0 of $33 RET 3; and die 
50 O04 A5 3C 0370 507 110$: MOVZWL AST$Q_10SB(R5), RO ; Get the 1/0 completion code — 
€2 50 €9 oaf5 208 BLBC RO, 100$ ; Go die unless success completion 
O37 ¢ 3 etre start temp old RSTS/E *#**« 
50 06A5 01 A3 O37 206 SUBW3 = #1, AST$Q_I0SB+2(R5), RO 
27 AS) = =650—sé#B»1 37C 50 CMP RO, AST$T_BUF+1(R5) 
10 1 0 +! 508 BNEQ FOO_RSTS 
$6 AS 00000101 8F oD 8 09 MOVL #108!1, ASTS$T_BUF (RS) 
A A5 00010002 af p 8A 10 MOVL  #1a0a16:2, ASTS$T_BUF+4(R5) 
000003 , 11 FOO_LRSTS_1 =. 
rf 
, a 3 eetee end temp old RSTS/E s**** 
01 26A5 91 9 15 CMPB ASTST_BUF(RS), #1 :; Is it a CONFIG message? 
12 96 16 BNEQ 3 ee : 
01 27 A5 91 0398 1 CMPB ASTST_BUF+1(R5), #1 ; A CONFIG message for V1 or higher? 
18 039C 18 BGEQ 3; Ye 
9€ 519 1308: SPUTMSG_S - ; Output an error message 
9E€ 520 MSGVEC = NOTVMS 3; saying protocol not supported 
9E -GLOBL SYSSPUTMSG 
00 oD 9 PUSHL 
A SPUSHADR 0,CONTEXT=Q 
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RTP = REMOTE TERMINAL PROGRAM 16-SEP-1984 15:27 VAX/VMS Macro v04-00 P | 
V04 INIT = INITIALIZATION OF LINK, ETC. ~3Ep=18be 08:18:47 LATPMD SReIRTPKO Macs ase 7, 
A IF IDN,0,0 
00 = 6DD rn PUSHL #0 
A PUSHAQ 0 
rn -ENDC 
A SPUSHADR 0 
A Pai IDN,0,0 
00 oD A PUSHL #0 
AS -1FF 
AG PUSHAL 0 
aA LENDC 
03A4 SPUSHADR NCTVMS 
nen IF 10N,0,NOTVMS 
0 re PUSHL #0 
0138'CF DF 03k PUSHAL NOTVMS 
O3A8 ‘ 
00000000 ' GF 06 «FB BaAe CALLS #4,G*SYSSPUTMSG 
04 O3AF 381 RET 
0380 5 ¢ 
0380 5 H 
0380 524 ; Use the support bit mask that was returned to determine which 
0380 525 ; of the protocol modules to call. 
oo 
O319°CF 28 AS 0380 528 140$: MOVB ASTS$T_BUF+2(R5),PROTO_ECO ; Save eco level 
OSIA'CF 2A AS BO beer 5 3 MOVW AST$T_BUF+4(R5),HOST_OPSYS ; Save host operating system 
52 fFFC'CF 9E trai 1 1508 MOVAB PROTOTBL=-4, R2 ; Get (biased) pointer to protocols 
52 9% CO 03C1 338 "ADDL #4, R2 : Index over address to bit number 
00000000 ' 8F 2 01 O3C4 534 CMPL R2, #ENDPROTO ; Are we out of protocols? 
D1 4 «=€61E— «6(03CB. O35 BGEQU§ 1308 : Yep, protocol not supported 
82 2C AS 8 O3CD 536 BITwW ASTST_BUF+6(R5),(R2)+  ; Not yet, does the bit match? 
EE b30) 230 BEQL 150$ : No match, loop for next protocol 
BB 535 : R2 is now address of protocol module routine 
O31C°CF DF 03D 41 PUSHAL OLDCTRL ; Arg #2 is returned out-of-band bits 
tae DF D7 45 PUSHAL OCT a : Arg #1 is out-of-band's to disable 
00000000 ' GF 2 FB 3 es tz CALLS #2, G*LIBSDISABLE_CTRL ; Get the currently enabled ones 
O31C'CF OF O3E 45 PUSHAL OLDCTRL ; Arg #2 is returned out-of-band bits 
O3IC'CF OF 360 46 PUSHAL eg iy ; Arg #1 is out-of-band's to disable 
00000000'GF 02 FB Q 54 2 CALLS #2, G*LIBSDISABLE_CTRL ; Go disable out-of-bound ASTs 
fy rk SSETRWM_S - ; Set resource wait mode 
Fi 50 WATFLG = #1 3: off so we never will hang 
Fl -GLOBL SYSSSETRWM 
3 DD Fi PUSH 
00000000 ' GF 1 FB 4, CALLS #1,G*SYSSSETRWM 
0000'8F 50 81 FA 551 CMPW RO, #SS$_WASCLR ; Was it already off? 
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v04- INIT = INITIALIZATION OF LINK, ETC. sets 88:43:25 RTPAD.SRCJRTPAD.MAR; 1 . 4) 
04 13° O3FF BEGL 160$ ; Nope, we'll turn it back on at exit 
O320°CF 06 Ht 38 INCL OLDSETRWM 3 Yep, we'll keep it off at exit 
4 5 5 ; 
495 i ; Call the appropriate protocol module... 
00 82 00 Fe oc0g 889 OF! cats #0, area) Go start lected l 
. 3; Go start up selected protoco 
8 499 360 RSO ; bone ° 
0208'CF 8 40A 86 170$: TSTwW PSI UAU_ASG ; Any saved PSTHRU message(s)? 
18 1 40 6 BEQL 175$ ; Nope 
5 bp 41 64 PUSHL RO : Yep, save the status code 
0208' CF F 041 65 PUSHAQ PSTHRU_MSG ; Address the saved message(s) 
00000000'GF 01 FB 0416 286 CALLS #1, G*CIBSPUT_OUTPUT 3 _and go output them 
50 8€ 00 0410 56 MOVL  (SP)+, RO ; Restore the status code 
05 Be ? 363 175$: RSB ; Exit 
0000 0421 is 180$: .WORD “M<> 3; Message call back routine 
06 AC O1FE 8F BO 0423 571 MOVW WREMS_FACILITY, 4#2(AP) ; Replace facility code with ours 
0429 278 SPUTMSG_S - 3; Use SPUTMSG : 
0429 57 MSGVEC = (AP), - ; with the supplied aonsege vector 
0429 574 ACTRIN = 190$ ; calling this action routine 
0429 -GLOBL SYSSPUTMSG 
00 DD 0429 PUSHL #0 
0428 SPUSHADR 0,CONTEXT=0 
0428 IF IDN,0,0 
00 DD 0428 PUSHL #0 
042D FF 
0420 PUSHAQ 0 
042D -ENDC 
042D 
042D SPUSHADR 190$ 
042D IF IDN,0,190$ 
0420 PUSHL #0 
0420 oIFF 
0438'CF OF bas PUSHAL 190$ 
be } -ENDC 
re SPUSHADR (AP) 
0431 olf IDN,0, (AP) 
0431 PUSHL #0 
431 oIFF 
6C OF 431 PUSHAL (AP) 
be ; -ENDC 
00000000 ' GF 046 #=#=+FB r : CALLS #4,G*SYSSPUTMSG 
04 ? 5 fe RET ; Return 
000 438 6 190$: .WORD “M<> 3; Action routine for SPUTMSG 
O208'CF 8B 43D 78 TSTW PSTHRU_MSG ; Anything saved yet? 
a 44 79 BEQ 00$ 3 Nope 
10°CF 7F 044 0 PUSHAQ PSTHRU_CRLF 3; Arg #2 is the string to append 
‘CF 7F 044 1 PUSHAQ 4 Nar MSG ; Arg #1 is the string to gqpend to 
00000000'GF 02 FB 168 ¢ CALLS #2, G*STRSAPPEND ; Go eaye message by segene ng 
BC 7F 045 583 200$: PUSHAQ @4(aP) ; Arg #2 is the string to append 


B 1 
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INIT = INITIALIZATION OF LINK, ETC. gree bbe 86:13:25 RTPAD.SRCJRTPAD.MAR; 1 . (1) v4 
O208'CF 7F 0455 4 PUSHAQ PSTHRU_MSG ; Arg #1 is the string to append to 
00000000 ' GF 63 FB 283 5 CALLS #. G*STRSAPPEND 3 60 save message by Sependin 
Be 46 § CLRL R 5 vey we don’t want any output now | 
4 rh , ET ; then return 
4§ 9 CTERM_RT: ; CTERM protocol initialization 
0000 7 39 -WORD “M<> ; No register(s) to save 
O2B2°CF 9% $83 393 INCB CTERM_FLAG ; Indicate CTERM protocol 
50 OQ6E9"CF 7E 0469 594 moveq intonsg! RO 3; assume not vax to vax 
O31A'CF 07 BI 0466 395 CMPW = #7, ,HOST_OPSYS : Talking to VMS? 
A 1 4 96 BNCQ § ; nope 
AB 0475 23% BISwW #FLGSM_VAXHOST,=- 
bee "CF 0477 98 GTERA_FLAG ; Set flag 
50 O0522°CF 7E O47A 599 movaq  infomsg2,RO 3 vax to vax 
047F 600 10$: 
00 €1 O47F 601 BBC #RTLOGSV_BANNER,= 
11 02B6'CF 0481 one RTLOG_FLAGS,20$ ; Branch if not requested 
50 DD 0485 60 pushlt RO : 
01 DD 0487 604 pushl #1 3 > 
O1FE1130°8F DD 0489 605 pushl #<shr$_text:ists$k_info>!<rem$_facilityal6> ; 
00000000'GF 03 FB ot o06 calls #3,g*lTb$signal 3 
QOOOO'CF 00 FB 0496 608 20S: CALLS #0, VMSRT ; Go join the VMSRT protocol 


04 0498 £09 RET ; «then exit 


_RTPAD -R 

her tase REC 

| O30D'CF 6E »DO 
| 

00000000 

00000001 

00000001 

7E 7C 

0004'°CF 7F 

000C ‘CF DF 

00 oD 

QOOOO'CF OF 

05 op 

00000000'GF O07 FB 


Sees ate 


RMINAL PROGRAM 1 =36n- 138% be: 27 
= snapshot QUIT info =SEP-1984 2:15:47 
- SBTTL RECORD_QUIT - snapshot QUIT info 
615 RECORD_QUIT: 

614 
HF MOVL (SP) ,QUIT_PC 
e1$ SGETJPIW_S - 
618 EFN = #5,- 
619 PIDADR = LOCAL_PID,- 
$60 ITMLST = GETJPT_ITMLST,- 
621 I0SB = JPI_10SB 
. GLOBL SYSSRETIPIW 
SQIOPUSH #0, 
$$T1 = 0 
IF 10N,<#0>,<#0> 
IF IDN,<0>, <0> 
$$T1 = 
~ENDC 
~ENDC 
ait E $$T1 
CLRQ -(SP) 
LFF 
PUSH #0 


wn 
v 
= 
4] 
oxzr 
oa 
= 
a 
So 


SPUSHADR JPI_JOSB,CONTEXT=Q 
IF IDN,0,JPI_10SB8 
PUSHL 0 


FF 
PUSHAQ JPI_I0SB 

 ENDC 
SPUSHADR 1GETgPd ITMLST 

IF 0,GETJPI_ITMLST 
PUSHL 

.1FF 
PUSHAL GETJPI_ITMLST 


NTEXT=Q 
0 


SPYSHADR LOCAL PID 
F DN,0,COCAL_PID 
PUSHL i 


| 
PUSHAL 
NDC 


LOCAL_PID 


PUSHL 


#5 
CALLS #7,G*SYSSGETJPIW 


AX/VMS Macro v04-00 


RTPAD.SRCJRTPAD.MAR; 1 


3; save caller PC 


Page 33 
ae 


——— 


v04 


eon 


08 50 
50 00 gt 
00 50 


= REMOTE TERMINAL PROGRAM 
RECURD_QUIT = snapshot QUIT info 


? 4BA 6 BLBC 

§ 4B 6 MOVZWL 

E 4¢ 624 BLBC 
4C¢ 625 100$: 

05 04C 626 RSB 
4C6 627 


JPt 10s 0SB,RO 
6.1008 


X/VMS Macro V04-00 Page e: 


TPAD. SRCJRTPAD.MAR; 1 


(2) 


Vv04 


SS a _ - —— 


; 
.% 
RTPAD = REMOTE TERMINAL PROGRAM 16-SEP-1984 02:15:27 VAX/VMS Macro V04-00 P 35 | RIF 
v04-000 READ ONLY DATA = oer = 1382 bg: 13:22 ERIPAD SR RTPAD.MAR; 1 oo" (3) voé 
rt £40 .SBTTL READ ONLY DATA 
4F GE 24 53 59 53 easetpadebas |g (4 rt 631 SYSSNODE: -ASCID /SYS$NODE/ | 
4F 43 24 53 59 53 OOOD04DE'010E0000' 0406 632 TTYDESC:: -ASCID /SYSSCOMMAND/ 
44 4E 41 4D 4D rt} ‘ | 
65 74 6F 6D 65 72 O9O006F 1" 0} 0590 O* O4E9 832 infomsg1: -ascid /remote terminal is using CTERM protocol (non-vax)/ ; *** TE 
73 69 20 6C 61 6E 69 6D if: $3 4 20 04F7 ; 
4D 52 45 54 43 ¢ 67 6E 6 75 20 0503 
6E 28 20 6C 6F 63 6F 74 6F 72 70 20 O50F 
$3 78 61 76 gp of of 8238 . 
65 74 6F 6D 65 72 te tte 105 000° 05 635 infomsg2: -ascid /remote terminal is using CTERM protocol (vax-to-vax)/ ; *** 
73 69 20 6C 61 6E 69 6D 72 65 74 20 0530 * 
4D 52 45 54 43 20 67 6E 69 73 75 20 053C 
76 22 20 6C 6F 63 6F 74 6F 72 70 20 0548 
29 78 61 76 2D 6F 74 2D 78 61 0554 
Q55E 636 
OS5E 637 DVILIST: 
0004 0004 O55E 638 WORD 4,DVI$_DEVCLASS ; Device class 
00000000'00000054" 0560 639 -ADDRESS  DEVCLASS_TEMP,0 
0006 0004 been 641 ~ WORD 4,DVI$_DEVTYPE : Device type 
00000000 '00000058' 836k o -ADDRESS DEVTYPE_TEMP,0 
0008 0004 0576 644 WORD 4,0VI$_DEVBUFSIZ ; Device buffer size 
00000000'0000005C' bene 2 ADDRESS DEVBUFSIZ_TEMP,0 | 
000A 0004 0582 647 WORD 4,DVI$_DEVDEPEND ; Device dependant data (1) 
00000000 ' 00000064 ' 3258 968 ADDRESS DEVDEPEND 0 
001C 0004 O58E 650 WORD 4,DVI$_DEVDEPEND2 ; Device dependant data (2) 
00000000'00000068' 0592 631 “ADDRESS  DEVDEPEND2,0 
0020 0010 Q59A 63g - WORD 16,DV1$_DEVNAM ; Device name and Length 
0000006C '00000070' 43 $38 ADDRESS DEVNAM, DEVNAMLEN 
000C 0004 O5A6 656 «WORD 4,0VI$_UNIT ; Device unit number 
00000000‘ 00000080' bens tH ADDRESS TERMUNTT,O 
00000000 0582 659 —. LONG 0 END OF LIST 
0586 660 


eee ie ee 


ia 
RTPAD - REMOTE TERMINAL PROGRAM 16-SEP-1984 :15:27 VAX/VMS Macro V04-00 Page 3 
v04-000 READ WRITE DATA -SEP-1984 REE RTPAD.SRCJRTPAD.MAR; 1 . (3) 
58 66 -SBTTL READ WRITE DATA 
00008 § be$ -PSECT _RTPAD,LONG 
00000000 8 665 LOCAL PID: . LONG 9 3; no pid 
0000000C Be 908 JPI_10SB: -BLKL : ios 
i 668 GETJPI_ITMLST: 
144g st 96? » WORD 4,JP1$ ee 
00000050 '00000040' 001 670 ~LONG ASTLM 
0000'0004 O18 671 “WORD cJPis “ASTNT 
const Ease ENE Bt tes A 
0000005009909 48° 0028 674 LONG 8 OLM,CEN 
0000'0004 0030 675 “WORD 4 OPIg _BIOCNT 
00000050'0000004C' 0034 676 “LONG BIOCNTTLEN 
00000000 003C 678 -LONG 0 : end of List 
pee 679 
00000000 0040 680 ASTLM: .LONG 0 
00000000 0044 681 ASTCNT: .LONG 0 
00000000 0048 one OLM: .LONG QO 
00000000 004C 683 BIOCNT: .LONG 0 
00000000 0050 684 : -LONG 0 
0054 685 
0054 686 ; 
0054 687 ; Returned data area for $GETDVI 
0054 688 ; 
0054 689 . : 
00000000 0054 690 DEVCLASS_TEMP: .LONG 0 ; Temp locations since getdvi wants Longs 
00000000 0058 691 DEVTYPE_TEMP: .LONG 0 
00000000 Bn 38 636 DEVBUFSTZ_TEMP: .LONG 0 
0060 694 CHAR_BLOCK:: ; VMS characteristics 
00000061 0060 695 DEVELASS: -BLKB 1 
00000062 BRe) 696 DEVTYPE: -BLKB 1 
00000064 0062 697 DEVBUFSIZ BLKW 1 
00000068 0064 698 DEVDEPEND: -BLKL 1 
0000006C bee 44 DEVDEPEND2: -BLKL 1 
00000000 it a8 4 DEVNAMLEN: : -LONG 0 3 
00000080 0070 8 DEVNAM: : -BLKB 16 ; 
0080 704 
00000000 tH A TERMUNIT: : -LONG 0 3 
Bae $ 
084 707 TERMCHAR:: ’ 
0000008C "00000084 0084 708 -LONG DIBSK_LENGTH+16,1$ ; Term characteristics for RSX, etc. 
00000110 008C 709 1$: -BLKB DIBSK-LENGTH+16 
0110 710 
110 9=711 : 
118 ue ; Message vectors for S$PUTMSG 
100 fa 
00000000 00000000'00000002 119 ay DECNETERR: : -LONG 2,REMS$_NETERR,0O 
00000000 00000000'00000002 iN at NOTTERM: -LONG 2,REM$_NOTERM,0 


o 


G 1 
RIPA - REM TERMINAL PROGRAM 16-SEP-1984 02:15:27 VAX/VMS Macro Vv04-00 Page 3 
08, ED Be 99:13:25 oe 


OTE MIN 7 
READ WRITE DATA “SEP-19 RTPAD.SRCJRTPAD.MAR; 1 3) 
000001B0'00000001 00000000'00000003 1$8 AY EXITMSG: «LONG 3,REM$_END,1,NODENAME 
00000000 00000000'00000002 177 f NOTVMS: -LONG 2,REM$_NOPROT,O 
144 ¢ : Channels assigned in INIT and used by other modules 
00000000 144 5 LINKCHAN: : -LONG 0 ; DECnet Link channel 
00000000 148 4 : MAILCHAN: : -LONG 0 ; DECnet Link mailbox channel 
14C 731 RDWRICHAN:: 
00000000 b1e6 4 § READCHAN: : -LONG 0 ; Terminal reads channel 
00000000 biee 4 : WRITECHAN:: -LONG 0 : 
00000000 8128 tag CNTRLCHAN: : -LONG 0 ; Terminal “C and “Y enables 
00000000 Bide 38 TERMMBXCHAN:: .LONG 0 ; Terminal Unsolicited data mailbox channel 


} 
| 
; Terminal writes channel 
| 
| 


ee — 
| ns 


RTPA - REMOTE TERMINAL PROGRAM 16-SEP-1984 :15:27 VAX/VMS Ma v04-00 P 3 | 
V04-000 READ WRITE DATA Breen 198d OS:1e.47 LATER SReTR TPAD Mags 1 os 3) 
SC 241; | 
} : og : Cli interface storage 
44 4C 4F 00000164'010E0000' 126 oe: OLD_DESC: »ASCID /OLD/ ; /OLD qualifier 
| 47 4F 4C 0000016F '010E0000' 192 £8 LOG_DESC: eASCID /LOG/ ; (LOG qualifier 
45 54 44 0000017A'010E0000' 178 £8 DTE_DESC: eASCID /DTE/ ; /DTE qualifier | 
45 44 4F 4E 00000185'010E0000' Hf43 £39 NODEDESC: »ASCID /NODE/ 3; name of parameter 
a189 13 : 
189 755 ; Network names and descriptors 
0189 754; 
ot83 $3 OBJ_DESC Object t d ipt 
ooo00007' o189 pap ey DESC: .LONG 208-108 ayia Oe sth tent a 
00000191" 3180 £38 LONG 10$ 
22 3A 3A 0191 760 108: eASCII /:3°'/ ; FINAL FORMAT: node_name: :‘'nn="' 
9000007 0194 761 OBJ_C_PREFIX = .-10$ ; Offset to object number 
22 30 32 34 «420194 « «76 ASCII /42=°'7 ; 42 is TSA, 23 is old remote terminal 
0198 7635 20$: 
0198 764 
0198 765 NODE_NAME_DESC: ; Returned CLI node name parameter 
02000000 0198 766 .LONG DSC$K_CLASS_Da<DSC$B_CLASS*8> 
00000000 019C 767 -LONG 0O 
Q1A0 768 LOG_FILE_DESC: ; Returned /LOG= file spec 
02000000 01A0 769 .LONG DSC$K_CLASS_Da<DSC$B_CLASS*8> 
00000000 Bia roy -LONG 0 
B18 ore CONNDESC: ; Network connection string 
02000000 01A8 77 .LONG DSC$K_CLASS_Da<DSC$B_CLASS*8> 
00000000 piag ore -LONG 0 
00000040" 0180 776 NODENAME:: -LONG 20$-10$ ; Translation of SYSSNODE held here 
00000188" 0184 777 LONG 10$ 
0188 778 
000001F8 018 779 10$: -BLKB 64 
O1F 780 208: 
O1F 781 
01F8 44 FINALPATH: : : Final peth descriptor 
02000000 O1F8 78 -LONG DSCS$K_CLASS_D&<DSC$B_CLASS*8> 
00000000 re ree -LONG 0 
00 786 FINALACS:: ; Final ACS descriptor 
02000000 0200 787 .LONG DSC$K_CLASS_Da<DSC$B_CLASS*8> 
00000000 os f 3 LONG 0 
790 PSTHRU_MSG: ; Saved PSTHRU message descriptor 
92000000 0208 791 .LONG DSC$K_CLASS_Da<DSC$B_CLASS*8> 
00600000 Of P36 LONG 0 
0A OD 00000218'010E0000' 10 oe PSTHRU_CRLF : ASCID <13><10> 7 <CR><LF> for PSTHRU messages | 
1A 196 ; | 
1A 797 RMS storage | 
| 
| 
me | 
a Er eee 


Bae hoe ca ae Ai 2 Ee oa ak Rete A eS eee GR GCA es os Be ee 1 
I 
RTPAD = REM AL PROGRAM 16-SEP-1984 02:15:27 VAX/VMS Macro V04-00 Page 39 
v04=000 ety 7 8g: 42:27 ERIPAD. SRe RTPAD.MAR; 1 ~ | 
; ‘ -ALIGN LONG | 
1 SYSINFAB:: ae SFAB  - FAC=GET, FNM=<SYSSINPUT> ; To open SYSS$INPUT 
INI F 
: CORAL _BLOCK 
i 

, 


OSs 
DIF <> <GLOBAL>,.ENABLE SUPPRESSION 
SABS$,ABS 


DN <LOCAL> <GLOBAL> 
RO DEF SYM,ALLOC,S1Z 
YM: + 
N B:ALLOC. ALLOC $12 
RO $EQU  SYM,VAL 
—— 


SEQU 
ZHACRO_ SVIELDI MOD, SEP,SYM,SIZ,MSK 
-IIF -NB,SIZ, S$IZ...=S12Z 

SYM 


Au 
~ 


-IIF NB, MSK, MOD' Ss 
NDC 

oo@SlT.. . thi lace 
M $VIFLD1 


D 
F 

F DIF <LOCAL> <LOCAL>,.ERROR ;ARG MUST BE “GLOBAL"’,"“LOCAL'',OR NULL 
CRO SDEF SY Ym. ALLOC, Siz 
F 

D 


<18S1Z...>-1>aBIT...> 


OOQOQCQCQOCQoQooOoOooOQOOQOOOOOOCOOCOOoOO £O 


OOOO oCOCOOCOOooCoOooCOoSCrersrrorrrrrrn wt 


NB. SYM 
NB ALL toc ALLOC SIZ 


“MACRO $EQU SYM, VAL 


Zee Pens 
. 


.EN $EQU 
MACRO SVIELD1 MOD,SEP,SYM,SIZ,MSK 
-IIF -NB,SIZ, S1Z...=S12 


OOCoCoVoooooooooooo 


Z 

. <18S1Z...>-1>aBIT...> 
-ENDC 

BIT...=BIT.,.#SIZ... 
-ENDM = $VIELD1 


OOOOOCoCoCoooooooooooooo 


0 
ENDC 
00000000 -=0 
$SEQU FABSC_BID 3 
00000003 FABSC_BID=3 
F ABSM_PPF 
FABSM_PPF- 


ae “Rats 16380" 


OOoooooooooo: 


00003F CO 


SS -_w_reqx a 


i 
5.4 
RTPAD = REMOTE TERMINAL PROGRAM 16*SEP=1984 02:15:27 VAX/VMS 4- | 
_vO4-000 READ WRITE DATA Beep 19be OS:18:47 YRIPAD SROTRTPAD Mags 1 — ad 
| 
| 
SEQU  FABSM_PPF_IND 16384 
| 00004000 § EABSR-PPE-IND= 16864 
SEQU —- FABSM_MXv 2 | 
| 00000002 3 FABSMM¥V=2 | 
00 SEQU —«- FABSM_SUP 4 
| 00000004 990 FABSM~SUP=4 | 
00 SEQU —- FABSM_TMP g | 
00000008 900 FABSM~TMP=8 | 
9008 SEQU FABSM_TMD 16 
00000010 9000 FABSM~TMD=16 
$00 SEQU —- FABSM_DFw 32 
00000020 9900 FABSM~DFW=32 
0000 SEQU —_— FABSM_SQ0 64 
00000040 9009 F ABSM~SQ0=64 
0000 SEQU — FABSM_RWO 128 
90000080 9000 FABSM~RWO=128 
0000 $SEQU = FABSM_POS 256 
90000100 0900 F ABSM~POS=256 
0000 SEQU —- FABSM_WCK 512 | 
00000200 9000 FABSM~WCK=512 
0000 SECU —— FABSM_NEF 1024 
00000400 9000 FABSM~NEF =1024 
6000 SEQU —FABSM_RWC 2048 
00000800 0000 FABSM~RWC=2048 
0000 SEQU —— FABSM_DMO 4096 
00001000 9000 F ABSM~DMO=4096 
0000 SEQU —«-FABSM_SPL 8192 
00002000 9000 FABSM~SPL=8192 | 
00 SEQU  ~ FABSM_SCF 16384 | 
00004000 FABSM~SCF=16384 
6 SECU —«-FABSM_DLT 32768 
00008000 FABSM~DLT=32768 | 
0 SEQU —— FABSM_NFS 65536 
00010000 FABSM"NFS=65536 | 
SEQU —« FABSM_UFO 131072 | 
00020000 F ABSM-UFO=131072 | 
SEQU —«-FABSM_PPF 262144 | 
00040000 FABSM~PPF =262144 | 
| 
| 


AS Ot ae ee rT En 
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K 1 
RIPAD = REMOTE TERMINAL PROGRAM 16-SEP-1984 J2:15:27 VAX/VMS Macro V04- 
¥04-000 READ WRITE DATA | reer taas BSi 18:25 PARC YBS Magne, vO4n00 donates | * 
8 SEQU - FABSM_INP 52428 
00080000 900 FABSMCINP=526288 ore 
SEQU  —-FABSM_CTG 1048576 
00100000 : FABSM~CTG=1048576 
SEQU —-FABSM_CBT 097152 
00200000 900 FABSRoCBT=2097155 
0 SEQU ——«FABSM_RCK 388608 
00800000 F ABSM-REK=8388608 
00 SEQU ——«FABSM_NAM 16777216 
01000000 38 FABSM-NAM= 16777216 
00 SEQU  -FABSM_CIF 55443 
02000000 0000 FABSA-CLE=33554482 
0000 SEQU  —«FABSM_ESC 134217728 
08000000 9000 FABSM~ESC=134217728 
0000 SEQU —«-FABSM_TEF 268435456 
10000000 338 FABSM~TEF =268435456 
000 SEQU —_—-FABSM_OFP 536870912 
20000000 9000 F ABSM~OF P=536870912 
0000 SEQU ——FABSM_KFO 1073741824 
40000000 9009 FABSM7KFU=1073741824 
0000 SEQU —-FABSM_PUT : 
00000001 9000 FABSM~PUT=1 
0000 SEQU - FABSM_GET 2 
00000002 9000 FABSM~GET=2 
0000 SEQU —«-FABSM_DEL 4 
00000004 9009 FABSM~DEL=4 
000 SEQU —_—- FABSM_UPD 8 
00000008 9000 FABSM~UPD=8 
299 SEQU —-FABSM_TRN 16 
00000010 FABSM~TRN=16 
8 SEQU —~ FABSM_BIO 32 
00000020 900 FABSM7B10=32 
0 SEQU —— FABSM_BRO 64 
00000040 F ABSN3RO=64 
SEQU —-FABSM_EXE 128 
00000080 FABSM-EXE=128 
0 SEQU -FABSM_SHRPUT 1 
00000001 FABSM7SHRPUT=1 


—rn 


L 
niet moe SEINE 8 


z»-1 
=" 

moa 
—— 


:27 VAX/VMS M v04-0 Pp 4 RTF 
W D - 3:35 RIPAD SRC RPPAD Mags 1 ~ 3) vOé 
SEQU  FABSM_SHRGET 
00000002 FABSMCSHRGET=2° | 
SEQU FABSM_SHRDEL 4 
00000004 FABSM~SHRDEL=4 
O99 SEQU  FABSM_SHRUPD 8 
00000008 00 FABSM~SHRUPD=8 
$09 SEQU = FABSM_MSE 16 
00000010 909 FABSM-MSE=16 
000 $EQU = FABSM_NIL 32 
00000020 9000 FABSM-NIL=32 
9000 SEQU  FABSM_UPI 64 
00000040 9000 FABSM~UP] =64 
0000 SEQU FABSC_SEQ 0 
00000000 9000 FABSC~SEQ=0 
$006 $SEQU = FABSC_REL 16 
00000010 9000 FABSC~REL=16 
0000 $EQU «= FABSC_IDX 32 
00000020 9000 FABSC~1DX=32 
0000 $EQU FABSC_HSH 48 
0000003¢ 9000 FABSC -HSH=48 
9000 SEQU  FABSM_FIN 1 
00000001 900 FABSM~FTN=1 
$608 SEQU  FABSM_CR 
00000002 9000 FABSM~CR=2 
000 SEQU FABSM_PRN 
00000004 900 F ABSM~PRN=4 
000 SEQU FABSM_BLK 8 
00000008 9000 FABSM~BLK=8 | 
900 SEQU  FABSC_RFM_DFLT 2 
00000002 9 FABSC-RFM~DFLT=2 | 
$0 SEQU FABSC_UDF 0 
00000000 9900 FABSC~UDF =0 | 
i SEQU = FABSC_FIX 1 | 
00000001 80 FABSC~FIX=1 | 
SEQU FABSC_VAR 2 
00000002 FABSC~VAR=2 
0 $EQU —- FABSC_VFC 3 | 
00000003 FABSC-VFC=3 
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00000004 
00000004 
00000001 
00000002 
00000003 
00000004 
00000005 
00000006 
00000007 
00000008 
00000009 
0000000A 
00000008 
0000000C 
00000000 
0000000E 
0000000F 
00000010 


00000011 


om 
Fam 


DOSOSCOSOSOOSOSOSOSOSOOSOOOOOOSOOOSOOOOSOOOOOCOO 


COOooOoooooooooooooosoooooSo 


SOoCoooooooooooocoo 


SSSSSSSSSSSSSS 


>w 


SOooooooooooooooooo 


SOooOOCCOCOCCOOCOOCOCOOOOOOCOOOOOSOSOOSoO 


OOQOOCOCOCOCOOSSOSOCSCOSOSOOSOOSOOOOOC OOOO OOOOOOOOOOOOOO 


So 


$EQU 


$EQU 


SEQU 


$EQU 


$EQU 


$EQU 


$EQU 


$EQU 


$SEQU 


$EQU 


$SEQU 


$EQU 


SEQU 


SEQU 


$EQU 


$EQU 


$EQU 


$EQU 


SEQU 


ER tee PROGRAM 


V_SQ0 
B$V~SQ0=6 
$V_RWO 
BSV~RWO=7 
ABSV_POS 
ABSV~ Poss8 


ABSV_WCK 
ABSV “Uck=9 


AX/VMS Macro V04-00 
RTPAD.SRCJRTPAD.MAR; 1 


- REMOTE TERMI 
READ WRITE DATA 
$EQU 
won 1 
0 $EQU 
00000013 200 
500 $SEQU 
00000014 +44 
00000015 33 og: 
000 $EQU 
00000017 0000 
000 
0000 $EQU 
00000018 0000 
0600 
0000 SEQU 
00000019 0000 
0000 
0000 $EQU 
0000001B 0000 
0000 
0000 $EQU 
0000001C 0000 
0000 
0000 $EQU 
0000001D 0000 
0000 
0000 $EQuU 
OO000001E 0000 
0000 
0000 $EQU 
00000008 0000 
0000 
44 $EQU 
0000000C 00 
000 
000 $EQU 
00000010 0000 
000 
$08 $EQU 
00000014 0 
44 
00 $EQU 
00000016 O60 
0 
$EQU 
00000016 
00 $EQU 
00000016 
$EQU 


00000000 


NAL PROGRAM 


v Wan 
BSV"NAM=24 
$V_CIF 
BSV~CIF=25 
$V_ESC 
BSV~ESC=27 
FABSV_T 


FABSV_ TEF= 28 


FABSV_OFP 
FABSV_OFP=29 


FABSV_KFO 
F ABSV_KFO=30 


FABSL_STS 
FABSL-STS=8 


FABSL_STV 
FABSL~STV=12 
FABSL_ALQ 
FABSL~ALQ=16 

FABSW_DEQ 
F ABSW~DEQ=20 


SSEp=19be 08: 


18 


19 


20 


21 


23 


ra) 


25 


27 


28 


29 


30 


12 


16 


20 


FABSR_FAC_OVERLAY 


FABSR_FAC_OVERLAY=22 


22 


AX/VMS Macro V04-00 
RTPAD.SRCJRTPAD.MAR; 1 


a~s 


RTPAD = REMOTE TERMINAL PROGRAM 16-SEP-1984 02:15:27 VAX/VMS M V04- 66 | 
04-000 READ WRITE DAT Boer abe ASi1eic>  LARANDS Magne, V04=00 Page ¢4) | 
8 SEQU = FABSV_GET 1 
00000001 L FABSV~ ~GEt=1 
SEQU —~ FABSV_DEL 
00000002 : FABSVDEL=2 . 
00 SEQU  —— FABSV_UPD 3 
00000003 3 FABSV~UPD=3 
00 SEQU  — FABSV_TRN 4 
00000004 00 FABSV~TRN=4 
0000 SEQU  —~ FABSV_BIO ‘ | 
00000005 9000 FABSV~BIO=5 
itd SEQU  _- FABSV_BRO 6 | 
00000006 9000 FABSV~BRO=6 | 
$000 SEQU ——~ FABSV_EXE 7 | 
00000007 9000 FABSV~EXE=7 | 
0000 SEQU - FABSR_SHR_OVERLAY 23 | 
00000017 0000 FABSR~SHR~OVERLAY=23 
0000 SEQU = FABSB_SHR 23 
00000017 9000 FABSB~SHR=23 
0000 SEQU = FABSR_SHR_BITS 23 
00000017 9000 FABSR~SHR~BITS=2 
0000 SEQU FABSV_SHRPUT 0 | 
00000000 se FABSV~SHRPUT=0 | 
000 SEQU  FABSV_SHRGET 1 | 
00000001 9009 FABSV~SHRGET=1 | 
0000 SEQU FABSV_SHRDEL 2 | 
00000002 9000 FABSV~SHRDEL=2 | 
| 
0000 SEQU FABSV_SHRUPD 3 | 
00000003 9000 FABSV~SHRUPD=3 | 
000 
900 SEQU —~ FABSV_MSE 4 
00000004 00 FABSV"MSE=4 
00 $SEQU —s« FABSV_NIL 5 
00000005 00 FABSV-NIL=5 
0 $EQU —~ FABSV_UPI 6 | 
00000006 : FABSV™ “UPI= 6 
0 SEQU —- FABSL_CTX 24 
00000018 FABSL~CTX=24 
SEQU  ——- FABSB_RTV 28 
0000001¢ FABSB~ RIV=28 


RTPAD 
v04-000 


READ WRITE DATA 


0000001D 


0000001D 


0000001D 


00000004 


00000004 


0000001E 


QOOO00IE 


OOOCO0TE 


00000000 


00000001 


00000002 


00000003 


0000001F 


00000020 


00000024 


00000028 


0000002C 


00000030 


oo 


fololeoleo) 


3 


folololeo) 


SDoOoOooooooCooooooooooooosooe 
pelelelelelelelelelelelelelelelelelelelelelelelelelelola) 


COODOOCOCoOOoOoOoOoOoOoooo 


DOOOOSOSOSOOSOOSOSSOOSOSOOSOOCOCSOSOSOSOOSOOOSOSOOOSOOOoOO 
SSSSSSSSSSSSSSSSSSSSS 


DOOOOCOOOSOSOOOSOOOOOSOSO OOOO OOOOOOOOOOOOOO: 


dD 2 


= REMOTE TERMINAL PROGRAM = 

$EQU FABSR_ORG_OVERLAY 
FABSR_ORG_OVERLAY=29 

$SEQU FABSB_O 29 
FABSB_ ~ORG=29 

$EQU FABSR_ORG_BITS g9 
FABSR_ORG_BITS=2 

SEQU FABSS_ORG 4 
FABSS_ORG=4 

$EQU FABSV_ORG 4 
F ABSV_ORG=4 

$EQU FABSR_RAT_OVERLAY 
FABSR_RAT_OVERLAY=30 

SEQU FABSB_R 30 
FABSB_ RAT= 30 

SEQU FABSR_RAT_BITS (30 
FABSR_RAT_BITS=30 

SEQU FABSV_FIN 0 
FABSV_F TN=0 

$EQU FABSV_CR 1 
FABSV_CR=1 

SEQU FABSV_ORN 2 
FABSV_PRN=2 

SEQU FABSV_BLK 3 
FABSV_BLK=3 

SEQU FABSB_RFM 31 
FABSB_RFM=31 

SEQU FABSL 32 
FABSL_ INL= 32 

$SEQU FABSL 36 
FABSL_ “XAB= 36 

$EQU F ABSL_NAM 40 
F ABSL “NAR=40 

$EQU FABSL_FNA 46 
FABSL_FNA=44 

$EQU FABSL_DNA 48 
F ABSL_DNA=48 

$EQU FABSB_F 52 
FABSB_ 


00000034 


AX/VMS Macro V04-00 


Page 47 | 
RTPAD.SRCJRTPAD.MAR; 1 (3). 


| 


| 


RTPAD 
v04-000 


00000035 


00000036 


00000038 


0000003C 


0000003E 


0000003F 


00000040 


00000044 


00000048 


0000004A 


0000004A 


0000004A 


00000002 


00000000 


00000002 


00000002 


00000002 


00000004 


00000048 


T 
TE 


SOOO COOOCOCOOCOOOCOOCOOCOOCSOCSooOOoOO =m 
pole loleleleleleleleleleoleleleleleleolelelelelolo) 


SoOooooo 


oo SSSSSssssss 


SSoQOoOoooooooo 
COOOCooooooo 


oo 


on PROGRAM 


DATA 


$EQU 


$EQU 


$EQU 


$EQU 


SEQU 


SEQU 


$EQU 


$EQU 


$EQU 


$EQU 


$SEQU 


$EQU 


$EQU 


$SEQU 


$EQU 


$EQU 


$EQU 


$EQU 


$EQU 


FABSB 53 
FABSB_ ~DNS=53 
FABSW 54 
FABSW_ “ARS=54 
FABSL 56 
FABSL_ ARN 56 
FABSW_BLS 60 
F ABSW-BLS=60 
FABSB_BKS 62 
FABSB_BKS=62 
FABSB_FSZ 63 
FABSB_ FS7= 63 
FABSL_DEV 64 
FABSL_DEV=64 
FABSL 68 
FABSL “Spe=68 
FABSW_GBC 72 


FABSW_GBC=72 


FABSR_ACMODES_OVERLAY 74 
FABSR_ACMODES OVERLAY=74 


FABSB_ACMODES 74 
F ABSB_ACMODES=74 


FABSR_ACMODES BITS 
FABSR_ACMODES BI TS=74 
2 


FABSS_LNM_MODE 
FABSS_LNM_MODE=2 


FABSV_LNM_MODE 0 
F ABSV_LNM_MODE=0 


FABSS_CHAN_MODE 
F ABSS_CHAN_MODE= 


74 


FABSV_ ee MODE § 

F ABSV~CHAN_MODE= 
FABSS_FILE_MODE § 
FABSS_FILE-MODE= 
FABSV_FILE_MODE 4 
FABSV_F ILE-MODE=4 
FABSR_RCF_OVERLAY 
FABSR_RCF_OVERLAY=75 


"SSEp-19be OS:13:07 


AX/VMS Macro v04-00 
RTPAD.SRCJRTPAD.MAR; 1 


re th, 


RT 
vO 


RTPAD 
V0e-000 


00000048 
00000048 
00000000 
00000001 


00000002 


0000021C 
03 


50 
0000026C 
0000026C 


00000000 


4 64 843 
0 0003 


00000000 


0 
0' 
C 


T 
TE 
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0 
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F 2 
ERMINAL PROGRAM 16-SEP-1984 02:15:27 YAX/VMS Macro v04-00 
DAT ety ys 8g: 18:25 ERIPAD SRe RTPAD.MAR; 1 
SEQU FABSB_RCF 75 
FABSB-RCF=75 
SEQU FABSR_RCF_BITS _75 
FABSR-RCF-BITS=75 
SEQU FABSV_RU 0 
FABSV_RU=0 
SEQU  FABSV_AI 1 
FABSV-AI=1 
SEQU  FABSV_BI 2 
FABSV~BI=2 
SDEFEND FAB,,DEF 
.MACRO SFABDEF A 
“ENDM $FABDEF 
TIF DIF <> <GLOBAL>, .DISABLE SUPPRESSION 
RESTORE 


$$R_TABINIT FABSC : FABSC_BLN 


-IIF NE .83> .print ;%MACRO-I= 
$$. TAB=. 


-BYTE FABSC_BID 

-BYTE FABSC_BLN 

-BLKB FABSC"BLN-2 
$$. TABEND=. 


$S$R_VBFSET FAB,<> 
$$. TMP=0 io 
c IF oF * FABSV "x 
$$. 1AP=SS. TMP! <1aFABSV_'X> 


.=$$. TAB+F ABSL_FOP 
; $$. TMP 
-<$$, TAB+F ABSL_ALG 
ADDRESS 
“WORD 
$$R_VBFSET 
$$. TMP= 
IRP_X,<GET> 


IF DF FABSV_'X 
iF $$. TAP=SS. TMP! <1@F ABSV_'X> 


~ENDC 
TENDR 
LIF DF FABSV_GET 


FAB ,<GET> 


- ERROR ; UNDEFINED BIT VALUE CODE: 


- ERROR ; UNDEFINED BIT VALUE CODE: 


X; 


Fage 49 | 
a 


| 


ID, - 
ENINFO, Generated INFO: RMS BLOCK NOT LONGWORD ALIGNE 


6 2 
RIPAD = REMOTE TERMINAL PROGRAM IGoSEP=1984 02:15:27 YAX/VMS Macro vO4=00 Page 50. 
118247 Cf (3) | 


v04-000 READ WRITE DATA ~SEP=1984 TPAD. SRCIRTPAD.MAR; 1 | 
00000002 : - $$. TMP=$$. TMP! <1@FABSV_GET> 
ERROR ; UNDEFINED BIT VALUE CODE: GET; | 
-ENDC | 
” sen VBFSET FAB | 
ao) 
00000000 : $$.TMP=0 ~ 
8 -IRP X,<> 
IF DF FABSV_'X 
8 ae $$. TAP=$$. TMP! <1aFABSV_'X> | 
4 nee ERROR ; UNDEFINED BIT VALUE CODE: X; 
023 -ENDR 
0 33 | 
00 0 -BYTE $$. TMP 
00000000" 0234 ADDRESS 0 
00 0238 -BYTE 0 
0¢39 IF DF FABSC_SEQ 
00 0239 -BYTE FABST_SEQ 
023A LFF 
Og3A BYTE 
023A ERROR ; UNDEFINED VALUE FOR FIELD : SEQ; 
023A -ENDC 
023A $$R_VBFSET FAB, <> 
00000000 023A $$. TMP=0 
023A -IRP X,<> 
Og3A IF DF FABSV_'X 
0 3A $$. TAP=$$. TMP! <1aFABSV_'X> 
023A IFF 
023A ERROR ; UNDEFINED BIT VALUE CODE: X; 
023A .ENDC | 
023A -ENDR 
023A | 
00 Og5A -BYTE $$.TMP 
0238 IF DF FABSC_VAR | 
02 0238 -BYTE FABST_VAR 
023C LFF 
ve3C BYTE 
9 5s ERROR > UNDEFINED VALUE FOR FIELD : VAR; 
0000000' -ADDRESS 
$000000 A 46 ADDRESS : 
00000000° 0244 ADDRESS 0 
00000000 0248 “ADDRESS : | 
00000000° 024¢ ADDRESS 
50 -BYTE 
51 BYTE | 
9 52 WORD 
0000000 * 0254 ADDRESS 0 
58 «WORD 8 
SA BYTE 
8 -BYTE 0 
00000264 C .=$$. TAB+F ABSW_GBC 
0000 64 «WORD 0 


i ; 
RTPAD > REMOTE TERMINAL PROGRAM 16-SEP-1984 02:15:27 VAX/VMS Macro v04-00 Pa 1 RTI 
v04-000 READ WRITE DATA $73 Pe -188¢ 86: 13: 3 RTPAD.SRCIRTPAD.MAR; 1 - 23) Ps 
00 66 .BYTE  <<OaFABSV LNM_MODE> . + <OQ@FABSV_CHAN_MODE> + - 
6 < af ABS FILE-MODE>> 
67 - LIF NE 8-8, ERROR 3 INVALID BYTE SIZE 
0 67 Tt NB <SYS$INPUT> 
00000000 *BSEET SRMSNAM PS! 
56 55 50 GE 49 24 So -sorey 2009 UL aivss NPUTE ) | oe 
00000009 0009 $$. TMPX1=.-$$. TMP RTI 
99000 67 RES $Al 
0000024 67 .=$$. TAB+FABSL_FNA R 
90000000" 0 48 - ADDRESS $$. TMPX SRI 
00000 4C .=$$.TAB+F ABSB_FNS PR 
09 0250 -BYTE $$. TMPR1 PRI 
0251 ~ENDC PRI 
0251 IF NB <> 
0251 . SAVE 
0251 .PSECT SRMSNAM 
0251 . TMPX=. 
0251 -ASCII &% 
0251 $$. TMPX1=.-$$. TMPX Ph. 
0251 -RESTOR = 
0g31 .=$$. TAB+F ABSL_DNA In 
0251 “ADDR $$. TMPX | Cor 
0251 .=$$.TAB+FABSB_DNS | Pa: 
0251 -BYTE $$. TMPR1 | Sy! 
8531 ~ENDC Pa: 
0000026C 0251 .=$$. TABEND | Sy! 
026C Psi 
026C 802 Cri 
026C 803 SYSINRAB:: $SRAB F AB=SYSINFAB As: 
026 SRABDEF 
026C SDEFINI RAB, Thi 
Og6¢ .SAVE _LOCAL_BLOCK 17: 
026¢ NOCROSS Th 
026C LIF DIF <> <GLOBAL>,.ENABLE SUPPRESSION 87. 
O26¢ ghsect SABS$,ABS 63 
0000 IF IDN <LOCAL> <GLOBAL> 
0000 -MACRO $DEF SYM, ALLOC,S12 
0000 IF NB,SYM, SYM:: 
0000 “I1F NB "ALLOC ALLOC SIZ 
0000 ~ENDM F Mai 
9000 .MACRO $EQU SYM, VAL -- 
000 SYM==VAL 5 
9000 ~ENDM $EQU “$ 
000 -MACRO $VIELD1 MOD,SEP,SYM,SIZ,MSK 4 
000 $12...21 To 
900 LIF NB,SIZ, S1Z...=S12 
000 IF NB, SYM 30 
9000 MOD'SEP'V_‘SYM==BIT... | 
00 LIF NB,SIZ, MOD'SEP'S_"SYM==SIZ Thi 
000 LIF NB,MSK, MOD'SEP'M~ *SYM==<<<1aSIZ...>-1>a@BIT...> 
~ENDC MA 
BIT...=BIT...+S$12... 
-ENDM = SVIELD1 | 
0 1FF 
| 


e——o ee 


I 2 
RTPA = REMOTE TERMINAL PROGRAM 16-SEP-1984 02:15:27 VAX/VMS Macro V04-00 P 
VO04-600 READ WRITE DATA Breer bs Sei ieice PANANMS Macro, y04=00 ose 2; 
00 -1IF_ DIF <LOCAL> <LOCAL>,.ERROR ;ARG MUST BE "'GLOBAL"’,""LOCAL'’.OR 
0 “MACRO $DEF | SYM,ALLOC,S!2 9 or a 
SIIF NB, SYM, SYM: 
SIIF = NB ALLGC, ALLOC SIZ 
“ENDM = SDEF 
“MACRO $EQU = SYM, VAL 
SYM=VAL 
.ENDM  $EQU 
MACRO SVIELD1 MOD,SEP,SYM,SIZ,MSK 
— 
-1IF” NB,SIZ, $1Z...=$12 
“IF AL, 
MOD'SEP'V_‘SyYM=BIT... 
LIF) NB.S1Z, MOD'SEP'S_*SYM=S1Z 
LE NB.MSK, MOD'SEP'M”*SYM=<<<laSIZ...>-1>aBIT...> 
BIT...=BIT...+SIZ... 
.ENDM” = $VIELD1 
ENDC 
00000000 .=0 
$SEQU = RABSC_BID 1 
00000001 RABSC~BID=1 
SEC’) RABSM_PPF_RAT 16320 
00003F CO 9000 RABSM~PPF ~RAT=16320 
0000 SEQU RABSM_PPF_IND 16384 
00004000 4000 RABSM~PPF ~IND=16384 
0000 SEQU = RABSM_ASY 1 
00000001 9000 RABSM_ASY=1 
9000 SEQU = RABSM_TPT 2 
00000002 9000 RABSM_TPT=2 
9000 SEQU = RABSM_REA 4 
00000004 9000 RABSM~REA=4 
9000 SEQU = RABSM_RRL # 
00000008 9000 RABSM_RRL=8 
00 SEQU —«RABSM_UIF 16 | 
00000010 90¢ RABSM_UILF=16 | 
100 SEQU —-RABSM_MAS 32 | 
00000020 RABSM~MAS=32 | 
SEQU = RABSM_FDL 64 
00000040 RABSM_FDL=64 
SEQU —RABSM_HSH 128 | 
00000080 RABSM~HSH=128 | 
$EQU = RABSM_EOF 256 


00000100 RABSM_EOF =256 


a 
J 2 | 
7 TERMINAL PROGRAM 16-SEP-1984 7 VAX/VMS M v04-00 P 
WRITE DATA Bree pa 38 68: 13: 5 RTPAD.SRC RTPAD .MAR; 1 a 3) | 
SEQU §$RABSM_RAH 1 | 
00000200 i RABSM-RAH=512 ste | 
| 
0 SEQU = RABSM_WBH 1024 
00000400 iu RABSM_WBH=1024 
00 SEQU  RABSM_BIO 2048 
00000800 305 RABSM_B10=2048 
80 SEQU RABSM_LV 4096 
00001000 999 RABSM_LV2=4096 
000 SEQU RABSM 8192 
00002000 999 RABSMTLOA=8192 
000 SEQU RABSM_LIM 16384 
00004000 909 RABSA “LIM=16384 
000 SEQU = RABSM_LOC 65536 
00010000 909 RABSM_LOC=65536 
000 SEQU RABSM_W 131072 
00020000 9000 RABSM “Wat=131072 
000 SEQU RABSM_ULK 262144 
00040000 999 RABSM_ULK=262144 
$00 SEQU  RABSM_RLK 524288 
00080000 0 RABSM_RLK=524288 
0 SEQU  RABSM 1048576 
00100000 9 RABSM “NLK=1048576 
0 SEQU = RABSM_KGE go97152 
00200000 9 RABSM_KGE=209715 
0 SEQU RABSM_KGT 4194304 
00400000 9 RABSM_KGT=4194304 
0 SEQU = RABSM_NXR 8388608 
00800000 RABSM_NXR=838860 
SEQU §$RABSM_RNE 16777216 
01000000 RABSM_RNE=1677721 | 
SEQU  RABSA_ 33554452 
02000000 RABSM_ 1RO=335544 
SEQU RABSM_CVT 67108864 
04000000 RABSM_CVT=67108864 | 
SEQU RABSM_RNF 134217728 
08000000 RABSM_RNF =134217728 
SEQU RABSM_ETO 435456 
10000000 RABSM_ fio -2oaasscee 


00000004 


RABSR_ROP_OVERLAY=4 


K 2 
RIPAD = REMOTE TERMINAL PROGRAM 16-SEP-1984 02:15:27 VAX/VMS Macro v04-00 Page 54 
V04-000 READ WRITE DATA ~SEPT TEs BS: ]8:2% FANSVMS Macro, VO4n00 ~~ 
SEQU — RABSH_PTA 36870912 
20000000 ABSMcPTA=S36870975 
SEQU —«RABSM 1073741824 
40000000 RABSM-PMT=107374180% | 
5 SEQU —- RABSM_CCO =2147483668 
80000000 09 RABSM7CCO==2147488648 
0 SEQU —_—RABSC_SEQ 0 
00000000 909 RABSC~SEQ=0 
00 SEQU —-RABSC_KEY ; 
00000001 9900 RABSC“KEY=1 
000 SEQU —-RABSC_R 2 
00000002 9000 RABSCREA=2 
000 SEQU —-RABSC_STH 3 
00000003 9900 RABSC~STH=3 
0000 SEQU —«RABSK_BLN 68 
00000044 9900 RABSK“BLN=68 
000 SEQU —«RABSC_BLN 68 
00000044 9900 RABSC“BLN=68 
600 SEQU RABSS_RABDEF 68 | 
00000044 9900 RABSS-RABDEF =68 
000 SEQU —- RABSB_BID 0 
00000000 9090 RABSB~B1D=0 
$009 SEQU —-RABSB_BLN 1 | 
00000001 9095 RABSB~BLN=1 
ats SEQU —_- RABSR_ISI_OVERLAY 
00000002 9000 RABSR71$1~OVERLAY=2 
SEQU RABSW_1SI 2 
ooooo002 ¢ ABSU7IS1=2 
SEQU -RABSR_ISI_BITS 2 | 
00000002 RABSR71S17B1TS=2 | 
SEQU —-RABSS_PPF_RAT 8 | 
00000008 RABSS~PPF -RAT=8 | 
SEQU —-RABSV_PPF_RAT 6 | 
00000006 RABSV~PPF “RAT=6 | 
SEQU —-RABSV_PPF_IND 14 | 
0000000€ RABSV~PPF~IND=14 | 
SEQU —_- RABSR_ROP_OVERLAY | 


RT! 


} 
} 


- RE NAc PROGRAM 1 4 02:15:27 VAX/VMS Macro Vv04-00 Pp 
READ es : BBs BSi1eicy  FARBNDTS Magne, yO4e00 age 73; 
SEQU — RABSL_ROP 4 
00000004 RABSt -ROP=4 
SEQU = RABSR_ROP_BITSO 4 
00000004 RABSR-ROP"Bi Teo=6 | 
$SEQU —saRABSV_ASY 
00000000 RABSV~ASY=0 
$EQU —-RABSV_TPT 1 
00000001 RABSV~TPT=1 
$EQU  RABSV_REA 2 
00000002 RABSV~REA=2 
SEQU = RABSV_RRL 3 
00000003 RABSV-RRL=3 | 
SEQU —- RABSV_UIF 4 | 
00000004 RABSV~UIF =4 | 
$EQU —- RABSV_MAS 5 
00000005 RABSV-MAS=5 
SEQU  ——-RABSV_FDL 6 
00000006 RABSV~FDL=6 | 
SEQU —- RABSV_HSH ? | 
00000007 RABSV~HSH=7 
SEQU — RABSV_EOF 8 | 
00000008 RABSV~EOF =8 | 
SEQU —-RABSV_RAH 9 
00000009 RABSV~RAH=9 
SEQU —— RABSV_WBH 10 
0000000A RABSV~WBH=10 
SEQU = RABSV_BIO 1 
00000008 RABSV~B10=11 | 
$EQU =~ RABSV_LV 12 | 
0000000¢ RABSV-tVS=12 | 
00 $EQU —- RABSV_LOA 13 | 
0000000 00 RABSV~LOA=13 | 
i SEQU —s«RABSV_LIM 14 | 
Q000000E 01 RABSV“LIM=14 | 
‘ 
if $EQU —— RABSV_LOC 16 | 
00000010 RABSV~LOC=16 | 
SEQU —RABSV_WAT 17 
00000011 RABSV-WAT=17 


| 


_—s 


-—-- -. O  ” " 


00000008 


RABSL-STS=8 


RTPAD - REMOTE TERMINAL PROGRAM 16-SEP=1 1 AX/VMS M v04-00 P RT! 
04-000 READ WRITE DATA $78 EP=19 1384 88: 18; 23 ERTPAD Re RTPAD MAR; 1 ~ i$, v0. 
$EQU RABS$V_ULK 18 
00000012 . RABSV “UL K=18 
SEQU = RABSV_RLK 19 
00000013 RABSV-RLK=19 
SEQU = RABSV 20 
00000014 RABSV-NEK=20 
SEQU = RABSV 21 
00000015 0 RABSV~ “KGE=21 
0 SEQU = RABSV_ 22 
00000016 0 0 RABSV~ Ket=22 
$09 SEQU RABSV_wXR 23 
00000017 900 RABSV_NXR=23 
000 SEQU RABSV_R 24 
00000018 900 RABSV-RNE=24 
000 SEQU = RABSV_TMO 25 
00000019 909 RABSV~TMO=25 
0900 SEQU = RABSV_CVT 26 
0000001A a RABSV~ CVT=26 
00 SEQU  ——- RABSV 27 
00000018 09 RABSV~ “ANF =27 
800 SEQU ——- RABSV_ETO 28 
o000001¢ 9000 RAB“V~ETO=28 
° SEQU RABSV_P 29 
0000001D RABSV~ PTAE29 
SEQU RABSV_PMT 30 
0000001€ RABSV~PMT=30 
SEQU ABSV_ 31 
0000001F RABSV fEb=31 
SEQU RABSR_ROP_FIELDS 
00000004 RABSR-ROP~F IELDS=4 
SEQU  RABSB_R 5 
00000005 RABSB— RoPi=5 | 
SEQU = RABSB_ROP ‘ | 
00000006 RABSB_ROP2=6 | 
SEQU oR Or} ? | 
00000007 RABSE” ROP3=7 | 
SEQU = RABSL_STS a | 


N 2 
RTPA - REMOT TERMINAL PROGRAM 16-SEP-1984 02:15:27 VAX/VMS Macro V04-00 Pp 7 a. 
v04= READ mORIT TE D ety Pi 8g: 48:29 RTPAD. SRCIRTPAD.MAR; 1 saci 23) 
SEQU RABSR_STV_OVER 1 
0000000¢ RABSR~ “Hy “by ER AYet2 . 
SEQU = RABSL_STV 1 
0000000¢ RABSL— “S212 ' 
SEQU = RABSR_STV_FIELDS 12 
0000000¢ RABSR-STV~ “Fletbs=12 
SEQU = RABSW_STV 12 
0000000¢ RARSW- ~$Vb-12 
$SEQU —— RABSW_STV 14 
0000000€ RABSW~STV2=14 
SEQU — RABSR_RFA_OVERLAY 16 
00000010 RABSR-RFA-OVERLAY=16 
SEQU  —RABSS_RFA & 
00000006 RABSS_RFA=6 
SEQU = RABSW 16 
00000010 RABSW~ RFAEI6 
SEQU = RABSR_RFA_FIELDS 16 
00000010 RABSR-RFA “FIELDS=16 
SEQU —- RABS. 16 
00000010 RABSL— RFA =16 
SEQU — RABSW_R 20 
00000014 RABSW™ “REAG=20 
SEQU —s-RABSL 24 
00000018 RABSL~ “ETh=24 
SEQU ——RABSB_R 30 
O000001E 0 RABSB~ RAC =30 
SEQU ABSB_TMO 31 
0000001F RABSB TMO=31 
$EQU RABSW_US 32 
00000020 RABSW “U3 = 32 | 
SEQU —s- RAB 34 
00000022 RABSUTRST=34 | 
0 $EQU = RABSL_UBF 36 
00000024 00 RABSL “UBF =36 | 
q 
0 SEQU ABSL_RBF 40 | 
00000028 00% ABSLZRBF =40 | 
i SEQU RABEL _RiB 4 | 
0000002c 00 RABSL ~RHB=44 


= REMOTE TERMINAL PROGRAM Ig-SEB-1984 03:15:27 AX/VMS Macro V04-00 
READ WRITE DATA ~SEP=1984 03:15:47 CRIPAD.SRCIRTPAD.MAR; 1 
SEQU = RABSR_KBF_OVERLAY 48 
00000039 RABSR-KBF ~ ~SVERLAY=48 
0 SEQU = RABSL_KBF 48 
00000030 308 RABSL~KBF=48 
000 SEQU — RABSL_PBF 48 
00000030 000 RABSL PBF =48 
$09 SEQU = RABSR_KSZ_OVERLAY 52 
00000034 9900 RABSR-KS2_OVERLAY=52 
0000 SEQU = RABSB_KSZ 52 
00000034 9000 RABSB~ “Ke7=52 
9000 SEQU RABSB_PS 52 
00000034 9000 RABSB ~p83=252 
0000 SEQU RABSB_K 53 
00000035 9000 RABSB- ~KRF=53 
0000 SEQU = RABSB_MBF 54 
00000036 9000 RABSB_MBF =54 
0000 SEQU  RABSB_MBC 55 
90000037 9000 RABSB_MBC=55 
0000 SEQU RABSR_BKT_OVERLAY 56 
00000038 9000 RABSR~BKT-OVERLAY=56 
0000 SEQU RABSL_BKT 56 
00000038 900 RABSL ~BKT=56 
000 $SEQU  RABSL_DCT 56 
00000038 9000 RABSL_DCT=56 
0000 SEQU  RABSL_FAB 60 
0000003c 9000 RABSL—FAB=60 
0000 SEQU = RABSL_XAB 64 
00000040 9000 RABSL~XAB=64 
900 SDEFEND RAB, ,DEF 
0 ~MACRO $RABDEF A 
0 “ENDM = SRABDEF 
0 “IIF «DIF <> <GLOBAL>, .DISABLE SUPPRESSION 
00 "CROSS 
0000 6¢ RESTORE 
6C 
6C $$R_TABINIT RABSC_BID,RABSC_BLN 
6C 11 IF NE .83, .print ;%MACRO-1-=GENINFO, * lee INFO: RMS BLOCK NOT LONGWORD 
0000026¢ 6C $$. TAB=. 
1 026¢ .BYTE RABSC B10 
44 026d “BYTE RABSC~BLN 
00000280 026 -BLKB RABSC~BLN-2 
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RTPAD - REMOTE TERMINAL PROGRAM 16=SEP=1984 02:15:27 VAX/VMS Macro v04-00 Page 59 
v04-000 READ WRITE DATA ete EE RTPAD.SRCIRTPAD.MAR; 1 ° (3) 
00000280 a $$. TABEND=. | 
B $$R_VBFSET RAB,<> 
00000000 028 $$. TMP=0 
B ~IRP X,<> 
B IF DF RABSV_'X 
80 = $$. TAP=$$. TMP! <1aRABSV_'X> 
B0 ERROR ; UNDEFINED BIT VALUE CODE: x; 
028 .ENDC 
0 80 ENDR 
00000270 o 80 .=$$. TAB+RABSL_ROP 
90900990" “ADDRESS 
00000284 0274 *=$$. TAB+RABSL_CTX 
00000000" 0 84 SADDRESS 
0000028A 4 *=$$. TAB+RABSB_RAC 
028A TIF DF RABSC 
00 028A “BYTE  RABS 
0288 LIF 
0288 BYTE 
0288 “ERROR ; UNDEFINED VALUE FOR FIELD: CNST; 
0288 “ENDC 
00 0288 “BYTE 0 
0000 028¢ “WORD 
0000 0 43 WORD 
00000000" 029 ADDRESS 0 
00000000" 0294 ADDRESS 0 
00000000' 0298 ADDRESS 0 
00000000" 029¢ ADDRESS 
02A0 ~1F NB <> 
02A0 .=$$. TAB+RABSL_PBF | 
02a0 “ADDRESS 
0 AO . N 
00 02a0 “BYTE 0 
OSAT -1F NB <> 
02A1 :=$$. TAB+RABSB_PSZ 
02A1 -BYTE 
Al END 
00 O2A1 "BYTE 
0 a .BYTE | 
A BYTE | 
0000000" 02a4 “ADDRESS 0 | 
0000021C' 02A8 “ADDRESS SYSINFAB 
00000000" O2ac “ADDRESS 0 
00000280 80 * =$$. TABEND 
0280 804 
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D 
RTPAD = REMOTE a bee PROGRAM 16-SEP-1984 :15:27 YAX/VMS Macro v04-00 P 
v04-000 READ WRITE DATA IST Pi 83:18:25 RTPAD.SRCJRTPAD.MAR; 1 — 
B 
me. 
i Flags 
Bi” 
90 0 50 1} INDFLAG: : -BYTE 0 ; Indicate indirect command file 
00 0 a 18 WAKEFLAG:: -BYTE 0 ; Flag for legitimate SWAKE 
00000000 5 83 2 CTERM_FLAG:: LONG 0 ; TSA/CTERM flags (see SRTPADDEF) 
00000000 0 +4 Bi? RTLOG_FLAGS:: -LONG 0 ; value of RTPAD$LOG 
O2BA HE ; other misc. global storage 
S5pa RST 
O2BA 8 ¢ RTLOG_DESC: ; RTPADSLOG value 
Booo0ste* O9Be 89% TONG — RTLOG_BUF 
9009035 0 C 8 5 RTLOG_BUF : 7BLKB O16) 
O2de 8 3 RTPAD_LOGNAM: 
24 44 41 50 54 52 000002DA'010E0000" 02D 828 -ASCID /RTPADSLOG/ 
47 4F 4C 8 : 829 
00000309 8 3 eS RTSAB_ASTBLK: -BLKS AST$T_BUF ; Dummy AST block 
00000000 0309 8 ¢ RETSTATUSs : -LONG 0 : Save a system service status 
00000000 oaye : 7 QUIT_PC: -LONG 0 ; Save PC where error happened 
0311 835 FIRSTCMD:: t command descriptor 
02000000 0311 836 .LONG DSCSK_CLASS_ pacpécsa. tLASS $*8> 
00000000 8 13 Hit “LONG 0 
00 8 7 539 PROTO_ECO:: -BYTE 0 3 protocol eco level 
0000 8 1A 43 4OST_OPSYS: -WORD 0 ; host system 
Q31C 43; 
031C 44 ; local storage 
O31e Bee 
00000000 1¢ of OLDCTRL: -LONG 0O ; CLI out of band enable flags 
00000000 : ‘3 OLDSETRWM: -LONG 0 ; Original resource wait mode 
00000764 4 2) FIRSTMSG: -BLKB ASTST_BUF+MAXMSG ; Buffer for BIND message 
0000041A 764 38 MAXMSGSIZ: -LONG MAXMSG ; Maximum message size 
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RTPA - REMOTE TERMINAL PROGRAM 16-SEP-1984 215: AX/VMS Macro V04-00 P 61 
YO4-600 PROTOCOL TABLE PSECTS oat et Og: 48:22 FRIPAD SRE RTPAD.MAR; 1 seat 03) 
7 5 .SBTTL PROTOCOL TABLE PSECTS 
0000 BeECT PROTOTB,BYTE ,NOEXE 
39 PROTOTBL: | 
9019 0 9 61 .WORD <1a4> ; <4> => CTERM protocol 
00000463" 000 ¢ -LONG CTERM_RT 3; This is the initialization entry 
+4 6 ~WORD <1a2> 3; <2> => VMS remote terminal protocol 
00000000' Babe see «LONG VMSRT ; This is the initialization entry 
gets bey «PSECT PROTOTBL,BYTE,NOEXE 
00000000 68 -PSECT PROTOTBL1,BYTE,NOEXE 
0000 56? 
0000 870 ENDPROTO: 
0000 871 
0000 872 . END RTPAD 


RTPAD = REMOTE TERMINAL PROGRAM "§ :27 VAX/va | 
Symbol table :47 (CRTPAD. . 
TAB = 0000026¢ R FABSL_ALQ = 10 . 
$$. TABEND = 20909 89 R B FABSL-FNA = C 
. TMP = 00 98 9 FABSL_FOP = 4 | CT! 
$$. TMP1 = 09 1 FABSV~CHAN_MODE 2 2 a 
$$. TMP2 = Q000000CF FABSV_F ILE MODE s 8 4 CT 
$$. TMP = 3008 90 R 04 FABSV_GET = 1 CT 
$$. TMPX1 = 90 0 F ABSV_LNM_MODE 2 0 CT! 
$CBL 2 900000 FABSW GBC = 0 Oe CT! 
11 = 00000001 FINALACS 9 00 RG 05 | ctl 
AST$Q_10SB = $00 80808 F INALPATH OOO01F8 RG ¢T 
ASTS$T BUF = 00000026 FIRSTCMD 0 O31] RG 03 CT! 
ASTONT 90000068 R 05 FIRSTMSG 9 24 R 03 CT 
ASTL 0000040 R 0 FLGSM_VAXHOST og CT! 
BIOCNT 0000004C R 03 FOO_RSTS_1 0000392 R 01 CT! 
10. 00000048 R 03 GETIPI_ITMI.ST 900 00¢ R 03 CT! 
CHAR_BLOCK 00000060 R 03 HOST_OPSY 3008 1A R 03 CT 
et Scey VALUE reeeeeee 01 INDE CAG 0000280 RG 02 CT 
CLISPRESENT eeereere 01 INFOMSG1 S00004E9 R 01 CT, 
CNT RLCHAN 00000154 03 INFOMSG2 000005 e R 01 GE 
CONNDESC 000001A8 03 INIT 0000005 R 01 Ll 
CTERMSCLOSE_LOG terranes 01 1O$M_CTRLYAST = 00000080 PAI 
CTERMSOPEN_COG rereeeee 01 10$_READVBLK = 00000031 
CTERM_FLAG” 0000028 03 10$~SETMODE = 00000023 
CTERM_RT 00000463 R 01 JPIS_ASTCNT aeeeeeee Xx 03 
CTP$B-PRO_MSGTYPE = 00000026 JPIS_ASTLM eeeeeeer xX 8 
DC$_TERM eterreee 01 JPIS$_BIOCNT eeeeneee =X 3 
DECRE TERR 00000110 03 JPIS"BIOLM eeeeeere§ § X 03 
DEVSV_T eeeeeere 01 JP1_TOSB 00000004 R 03 
DE USI? 00000062 R 03 LEN 00000050 R 03 
DEVBUFSI2_TEMP 0000005C R 03 LIBSASN_WTH_MBX eeeeeree =X 01 
DEVCLASS 00000060 R 03 LIBSCVT-HT aeeeeeee = X 01 
DEVCLASS_ TEMP 00000054 R 03 LIBSOISABLE_CTRL aeeeeeee = X 01 
DEVDEPE 00000064 R 03 LIBSENABLE_ CTRL eeeeneee = = X= 01 
DEVDEPEND2 00000068 R 03 LIBSPUT OUTPUT eeeeeere§ XK 01 
DEVNAM 00000070 RG 03 LIBSSIGRAL eeeeeeee =X = 01 
VNAMLEN 0000006C RG 03 LINKCHAN 00000144 RG 03 
DEVTYPE 00000061 R 03 LOCAL_PID 9000009 R 3 
DEVTYPE_ TEMP 00000058 R 03 0G_DESC 0000167 R 0 
DIBSK_LENGTH = 00000074 LOG-FILE_DESC 30000140 R 03 
DSC$B_CLASS = 00000003 MAICCHAN 9000148 RG 0 
DSC$K-CLASS_D = 9000000 MAXMSG = 000 Sh 
DTE_DESC 00000172 R 03 MAXMSGSIZ 000 794 R 0 
DVIS_DEVBUFSIZ = 0000000 NODEDESC 000017D R 0 
DVI$_DEVCLASS = 90000004 NODENAME 6 180 RG 9 
DVI$"DEVDEPEND = 90000 A NODE_NAME_DESC 198 R 
DVI$_DEVDEPEND2 = 900 1C NOTTERM 900001 1¢ R 0 
VIS_DEVNAM = 0 $ 60 NOT VMS 90 O13 R 0 
DVIS_DEVTYPE = 6 T_DTE 9 08 R 1 
VIS"UNIT = 00 9 9¢ OBJ PREFIX = 00000 
DVILTST 9 R 1 OBJ DESC 06 189 R 
ENDPROTO 90 R 7 OLDCTRL 9 ; ¢ R 
EXITHSG 0 R 3 OLDSETRWM é R 
$B_FNS = 4 OLD_DESC 000015C R 
FABSC~BID = ; PROTOTBL 9 00 R 
FABSC~BLN = PROTO ECO 19 RG 
F ABSC~ SEQ = 09 PSTHRO_CRLF 6 10 R 
FABSC~VAR = 0000000 PSTHRU-MSG 08 R 


RTPAD 
Symbol table 


QUIT PC 
RABS$B_RAC 


RABSL~ ROP 
ROWRTCHAN 


REMS END 
REMS FACILITY 
M$_NETERR 


SYSSHIBER 
SYSSNODE 
SYSSOPEN 
SYSSPUTMSG 
SYS$Q10 
SYS$Q10W 
SYSSSETAST 


TERMMBX CHAN 
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gereeeee GC 
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terereee G 
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teteeeee G 
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teereree G 
0000086C Re 
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TERMUNIT 
TTYDESC 
UNSSNET_CONNECT 
VMSRT 

WAKEFLAG 


WRITECHAN 
WRITEQIO 
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Psect synopsis 


16-SEP=1984 02:15:27 YAX/VMS Macro v04-00 Page 6 
oSEp=19B4 08:13:47 ERTPAD SRC IRTPAD- MAR; 1 att 


were rene ese eres ean + 


PSECT name Allocation PSECT No. Attributes 


» 80080000 ( 8-3 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT VEC BYTE 
RTPAD 0000058 ( 1462.) 01 ¢ 1.) NOPIC USR CON REL LCL NOSHR EXE D NOWRT NOVEC BYTE 
SABSS$ 0000000 ( 0.) 8 ( §°} NOPIC USR CON ABS LCL NOSHR EXE R WR VEC BYTE 
RTPAD 0000076 ( 1896.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
SRMSN AGS ( 3°) Be ( 46.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
PROTOTB 000 ee 12.) 5 ( 5.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
PROTOTBL 90000000 ¢ 9.) 06 ¢ §.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
PROTOTBL1 00000000 « 0.) ( 7.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
$e ewer ercen merece ne cmo coca 
! ; Performance indicators : 
ase age faults me apse me 
Ph P faul CPU Ti El d Ti 
Initialization 31 00:00:00.08 00:00:00.77 
pesnens processing 129 Sb Be Bd 00:00:04.39 
694 00:00:1 se 00:01:07.76 
Synbol table sort 31 00:00:02.8 00:00:13.32 
s 2 578 00:00:04.24 00:00:19.02 
wed table output 1 00:00:00.13 00:00:00.56 
Psect synopsis output 0 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 1466 00:00:25.22 00:01:45.84 


The working set Limit was 2400 pages. 
173467 bytes (339 pages) of virtual memory were used to buffer the intermediate code. 
There were 150 pages of symbol table space allocated to hold 2667 non-local and 46 Local symbols. 
872 source Lines were read in Pass 1, producing 31 object records in Pass 2. 
63 pages of virtual memory were used to define 56 macros. 
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Macro library name Macros defined 


$3sstoue: ESYS" 08 vn 8: -MLB; 1 


4 
$255$DUA MLB; 12 
~$255$DUA SYSLIGJISTARLET.. ALB; 2 38 


TOTALS (all Libraries) 

3096 GETS were required to define 52 macros. 

There were no errors, warnings or information messages. 

MACRO/LIS=LIS$:RTPAD/OBJ=OBJ$:RTPAD MSRC$:RTPAD/UPDATE=(ENH$:RTPAD) *EXECMLS$/LIB+LIB$:RTPAD/LIB 
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